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LF CAS DES 


DROGUÉS DU FoRTH 


EDITORIAL 


Ouf, encore un numéro de tiré! Et nous n'avons pas chomé, car achever Les 
modules 4 et 5, terminer Les versions en allemand et anglais de TURBO-Forth, 
poursuivre La rédaction du manuel, et en même temps s'occuper d'administer 
L'Association n'est pas une mince affaire. Alors HELP, nous attendons vos 
articles, tout, n'importe quoi, du plus génial au plus fou en passant par Le 
plus dément, on prend, on diffuse. Qu'avez-vous sur Le feu? Rien! Allons, ne 
racontez pas d'histoire, dites plutôt que vous avez La flemme de fermer une 
enveloppe et de nous L'expédier. Vous ne voulez rien faire? Pas même un petit 
coup de pouce? Mais alors, comment que c'est-y qu'on va boucler Les numéros 
suivants? Promis juré, si rien ne vient, je boucle tout en anglais (Cnal). 


Sayons sérieux: un groupe de réflexion est en train de 5e créer autour du projet 
F32. Alors, si l'aventure vous tente et que vous regrettez de ne pas avoir 
participé au départ du dernier PARIS-DAKAR, retrouvez-vous dans La peau d'un 
JORBS-WOZNIAK en bricolant La puce La plus volcanique de cette fin de siècle. 
Pour Les incuttes irréductibles, Le JOBS-WOZNIAK est un animal à deux têtes qui 
se nourrit de pommes, vit son adolescence dans un garage et couve des micro- 
ordinateurs qui se vendent bien. 
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4) QU'EST-CE QU'UN METRCOMPILATEUR? 
Phénix: oiseau mythique qui renait de ses cendres. 


La métacompilation est sans doute Le summum de La 
complexité mais aussi de L'intelligence en matière de 
DE UE Le but de La métacompilation consiste à 
redéfinir à partir d'un système donné L'intégralité d'un 
nouveau Système. De tous Les Langages évolués, seul FDRTH 
est suffisamment puissant et maniable pour EVE du 
concept de métacompilation. Tout système FORIR, sauf 
pee Les versions des toutes premières origines du 
gngaoe est Lui-même conçu et écrit en FORTH. L'outil 
FORTH d'écriture d'un système FORTH est 50n NL 
et il est devenu d'usage de fournir à L'utilisateur Les 
sources du métacompilateur aussi bien que Les Sources du 


Quue lui-même  métacompilé. IL Ss'agit-là d'une 
caractéristique absolument unique pour un Langage de 
programmation. 


Pour L'utilisateur, disposer du métacompilateur et des 
sources que TEE A passède avec son outil de 
programmation d'Un SYSGEN extrémement puissant L'autorisant 
à redéfinir selon ses besoins propres L'outil-même dont il 
se Sert. Les perspectives offertes sont vertigineuses: Le 
concept illustre à ravir Les fondements de L'intelligence 
créatrice auto-référencée tels que l'a HART par 
exemple A R Hofstadter dans Son Livre “Güdel, Escher, 
HE Les Brins d'une Guirtande Eternelle" CInterEditions 


Joe NUeeER TURBO-FORTH à été métacompilé en FORTH-03 à 
L'aide Qu métacompilateur F83 de Laxen et Perry. Au fil des 
générations successives, Le métacompilateur et Le source 
métacompité ont été modifiés jusqu'au système actuel qui 
assure sa propre autogénération intégrale. Rien n'empêche 
Le Forthien de poursuivre cette "boucle étrange" pour 50n 
oropre compte ou pour créer un FORTH différent. 


Nous verrons toutefois que toute entreprise de 
métacompilation requiert de solides connaissances en FORTH, 
un Qi confortihlable, beaucoup de rigueur et pas mal de 
patience dans Les débuts pour appréhender Le plus complexe 
de tous Les concepts FORTH. 


2. LES VOCBBULAIRES DE METACOMPILATION 
Toute La difficulté de compréhension d'un métacompilateur 
réside dans Ll'ambiguité des mots. El n'est pas possible 
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d'échapper à cette ambiguité dans La mesure où Le système 
créé reprend Le LE du système créateur. On parle ici 
de système-hüte et de système-cible, L'ambiguité est 
encore accrue du fait qu'un bon métacompilateur est 
“homotogique*: il compile comme" un compilateur usuel, 
c'est-à-dire que L'écriture de La cible se fait en Forth 
naturel comme si le code devait être une simple extension 
de L'hôte. Or La cible, système complet et autonome, ne 
peut bien entendu pas être un sous-ensemble de L'hüte: 
elle réside obligatoirement à l'extérieur de celui-ci. 


Pour Lever L'ambiguité des mots, FORTH utilise 50n concept 
de VOCABULAIRES. Un même mot aura une AT 
différente selon qu'il apantie à tel ou tel 
vocabulaire, C'est Le CONTEXT, c'est-à-dire La Liste des 
vocabulaires actifs à un instant donné, qui permet au 
système hôte de savoir quel est de tous Les homonymes Le 
sens du mot à interpréter, La gestion des vocabuliaires en 
métacampitation est une étape-clé qui conditionne tout Le 
processus. 

de 8 vocabulaires 


JU n'y a pas mins de travail pour 


l'hôte Un sans compter Les images des 
vocabulaires de La cible. 

ROOT est Le vocabulaire minimal du HAS Il sert 
essentiellement à gérer L'utilisation des autres 
HAÉRUAICES dans Le contexte à L'aide du concept ONLY 
FORTH est Le vocabulaire usuel de L'hôte. Il sert à 
définir toutes Les opérations d'accès mémoire, 


d'interprétation, de compilation, de métacampilation. La 
plupart de ses mots auront bien sûr des homonymes dans la 
cible puisque c'est Le but de La métacompilation. 


ASSEMBLER est L'assembleur du métacompilateur. It s'agit 
Le plus souvent de L'assembleur usuel auquel on aura 
simplement revectorisè Les primitives d'accès mémoire pour 
que sea se fasse dans La zone d'écriture de Le 
cible. IL peut aussi s'agir d'un cross-assembleur 51 Le 
processeur de La cible n'est pas celui de l'hôte. 


META est Le vocabulaire-maiître de ons ne 
C'est Lui qui contient tous Les mots d'interprétation du 
métacompilateur, Il s'enrichit en outre ay cours de Là 
métacompilation d'un certain nombre de références de La 
cible sous forme de Labels, de constantes, d'adresses de 
variables dont il peut avoir besoin par La suite. 


TARGET est Le vocabulaire de La cible. Il faut bien 
comprendre que TARGET n'est pas Le chainage des mots tets 
AE compilés dans La cible: c’est un vocabulaire 

e L'hôte qui conserve seulement Les adresses de ces mots 
dans La cible. C'est donc plutôt L'image de La cible ou 51 
vous voulez une table des références de La cible. Tous Les 
mots de TARGET ont La même structure: à l'exécution, ils 
SURLE dans La cible Le code exécutif d'un mot de La 
cible déjà métacompilé. 


FORWARD est Le vocabulaire des références avant. C'est un 
vocabutaire en tout paint comparable à TARGET mais dont 
Les mots correspondent à des références non encore 
définies dans La cible. À l'exécution ces mots forment une 
chaine d'adresses où doit être compilée une référence 
jusqu'au moment où cette référence est définie ce qui 
permet de "résoudre" cette chaine d'adresses laissées en 
suspens, Il est évident que La a En doit 
s'achever avec un vocabulaire FORWARD entièrement résolu 
se peine de Laisser des "blancs" dans Le code de La 
cibte. 


TRANSITION est Le vocabulaire de structure. C'est Lui qu 
contient Les mots d'interprétation immédiate des 
structures de contrôle comme IF ELSE THEN Lorsque Le 
métacompilateur est lui-même en état de compilation de 
haut niveau dans La cible. C'est META qui décide d'activer 
TRANSITION quand il métacompile des définitions dans La 


cible. 
USER est Le vocabulaire de métacompilation des mots de 
type USER. Exactement comme te vocabulaire USER de FORTH 


vecabulaires de contexte. Bien souvent cependant, 
l'interpréteur est obligé de faire de courts retour en 
arrière dans Le Source pour à La fois métacompiler et 
conserver Les références, 


d'usager (essentiellement pour Le multitäche), ce deuxième 
vocabulaire USER contient des homonymes de META pour 
définir dans La cible Le même type de mots. 


Prenons un exemple qui FLANÈtS bien toute La mécanique 
La métacompilation. 

métacompilation META IN-M | 
métacompiler une variable. Nous écrirons dans Le texte: 


VARIABLE TEST 


vocabulaire courant 
Il n'est pas inutile 
nonynes dans META dans La mesure où 
er avec des références 
e La Cible. Ainsi Le mot 
Lacer FORTH dans CONTEXT mais 


CFORTH] pour parler du 


vocabulaires de contexte ainsi 
où sont apportées Les nouveaux mots. 
même de prévoir des 5 


noms de vocabulaires 
ORTH dans META ne va plus 


référencer Le vocabulaire F compilations : 


1) Un en-tête (si Les en-têtes sont métacompilés) va 


Le Lfa pointe sur une définition précédente dans Le méta- 
vocabulaire courant pour permettre à L'interpréteur futur 
de retrouver TEST, et un nfa est colle avec Le nom TEST, 
Puis un cfa est métacompilé avec 


Les mots de META comme IN-META, IN-TR 
SWITCH (qui conserve et 


RNSITION, IN-TARGET où 
ue un contexte), définis en 
début du métacampilateur sont fondamentaux: c'est Leur 
oubli ou mauvais | : 

d'erreurs ou incompréhensions de métacompilation. var g 
initialisé à zéro. 


2) Un mot TEST est également créé dans TARGET. Ce mot 
possède dans son qe l'adresse du cfa-cible de TEST. 
Lorsque Le porno À 
haut niveau Le mot TEST, Le TEST de TARGET compilera dans 
La cible cette adresse “comme si" L'interpréteur avait 
cherché ce mot directement dans La cible. 


Le système-cible est toujours inerte pour Le système-hôte. 
Pour celui-ci, il ne s'agit que d'une suite d'adresses où 
est compilé un code qui lui est étranger, En fin de 
métacompilation, | | 

L'utilisateur pourra sortir du système hôte pou 
Ce Lancement peut toutefois être réalisé 


nouveau système. 
NOUS verrons que 


ar l'hôte S'il possède un intégrateur. 
énère ainsi en deux étapes: L 
une constante contenant l'adresse du contenu (pfa-cible) 
de La variable TEST, En effet, il va peut-être falloir que 
Le. métacompilateur, en exécution cette fois, puisse 
initialiser La variable TEST, Ce sera possible en écrivant 
simplement 37 TEST !-T, Ici c'est ce troisième mot TEST 
qui est interprété par META. 


Mais revenons à La cible. Son site peut être trés variable 
stèmes. Ce pourra être une zone 


s. Ce peut être en mémoire virtuelle 
guiièrement sauvés dans La mémoire de 
masse. Sur un SyStème disposant d'une grande mémoire multi- 
Hire Le plus Logique est d'utiliser L'espace mémoire 


Cette triple compilation suppose évidemment une triple 


dans des tampons ré ( 
interprétation du mot TEST après VARIABLE avec deux 


compilent une fois, deux fois, trois fois Le même mot à 


Dans Le cas du TURBO-FORTH, La métacompilation s'opère dans une 
des endroits différents. 


e d'un tel système est de 

bits réelles, sans aucun 
entre Les adresses de métacompilation 
tives du système créé. 


ment alloué. L'avanta 
iser des adresses 
calcul de déplacement 
et Les adresses défini 


Toutes Les définitions ne sont pas compilées trois fois. 
LABEL par exemple n'est compilé qu'une fois dans 
Des ASSEMBLER: c'est une étiquette qui n'a pas de référence 
de métacompilation l 
F poser en premier Lieu d'une série 
de mots très simples permettant de Lire ou d'écrire dans ce 
site ainsi que d'un pointeur avançant au fil de La 
métacompilation dans cet espace. Par analo 
fondamentaux du compilateur forth @ C@ ! C 
ilateur dispose des mots @-T C@-T !-T Ci-T 


définir par La suite toutes Les opérations sur La cible. 
Cette portion du métacompilateur 
changement permet d'envisager tout autre 
externe de métacompitation. 


métacompilateur doit dis assembleur. Un mot codé ou en haut niveau n'est compilé 
son cfa est suffisante au métacompilateur. 
5. LES REFERENCES AVANT 


D'ordinaire, pour Limiter Les risques d'erreur Le FORTH 
refuse de reconnaître un mot qui n'a pas êté préalablement 


ie avec Les mots 


concevoir un sueRe où tous Les mots n'utilisent que 585 
rédécesseurs. à ] 

référence d'un mot ultérieur. C'est pourquoi, Le 
métacompilateur ne d'un IR particulier de 


d'accès mémoire au site tem Ô 
définition et de réso 


construction de La 
du code que dans cet | | nn. 
espace objet réservé, Soit à métacompiler La définition du mot EXEMPLE contenant 
4. INTERPRETEUR ET MECANIQUE DE METACOMPILATION 


Tout compilateur commence par un interpréteur: un texte 
source e5t interprété et Les mots 
rangement de certaines nes 
compilateur usuel compile de nouvelles définitions dans te 
compile de nouveltes 


pilateur va définir alors une ré d 
Le “vocabulaire FORWARD. Ce mot pointe sur La dernière 
adresse cible où doit être placée La vraie référence de 


aûresse à référencer tandis qu'ESSAI pointera sur cette 
adresse-cible dans EXEMPLE, Ainsi se construit à chague 
appel de ESSAI avant Sa véritable définition une chaine 
d'adresses-cible à référencer. Lorsque ESSAI sera défini, 
véritable référence à métacompiler sera replacée de 
proche en proche dans La chaine des adresses-cible 


ème. Le métacompilateur 
finitions dans un système cible. 


métacompilation, 
réteur naturel du FORTH: Les notions 
TJ, INCLUDE ne sont pas modifiées. Le texte source 
métacampiler est interprété mot-à-mot en une 5e soiu ê 

tacompilation complète suppose que la r 


PA ART QUE nous HAE En 


A et que nous désirions 


VARIABLE de META va en réalité faire trois 


avec TEST dans La cible. Le vfa est initialisé, 


5 e code exécutif d'une 
Enfin Le contenu de La variable TEST est 


ateur trouvera dans une définition de 


Le mot TEST va encore une fois être créé, cette 
Le vocabulaire META. Ce troisième mot TEST est 


en. arrière devant TEST dans Le flot 
rétation. Ainsi AE La mécanique 
ière des mots HEADER TARGET-CREATE ou RECREATE qui 


cible et n'est utilisée que par Le méta- 


La cible et dans TARGET: La seule référence de 


En métacompilation, il est très difficile de 


ien souvent il arrive qu'un mot contiennne 


ution des références avant. 


qui ne sera défini que plus tard. Le 
érence ESSAI dans 


Lars de La métacompilation de EXEMPLE, ESSAI 
une adresse-cible chaînant sur La précédente 


50 en RE ee ant e BEA ER 
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EscAt soit résolue tôt ou tard. En fin de métacompilation 
il est d'ailleurs prévu que Le système affiche La Liste des 
références avant non résolues si Le programmeur en à 
malheureusement oublié dans 50n SOUPCE. 
Le système de métacompilation des références avant peut 
être manuel: Le programmeur donne L'ordre de créer une 
référence avant par FORWARD: En préambule de toute 
utilisation et plus tard ordonne La résolution par RESOLVES 
quand Le mot référencé est RELNE un peu à L'image de 
ce qu'on fait habituellement avec DEFER puis 15. Ce je 
FE être Semi-automatique comme dans Le métacompilateur 
83: si Le métacompilateur rencontre un mot INCONNU, il 
crée de lui-même une référence FORWARD. La résolution, en 
général en fin de métacompilation, reste à La charge du 
programmeur par l'utilisation du mot RESOLVES. 


Le métacompilateur PHENIX est tElliptique": il possède un 
système de références avant entièrement automatique. Si un 
mot à référencer est inconnu, il est aussitôt crèé dans 
FORVARO, La résolution est également RAS à chaque 
définition d'une nouvelle référence, Le métacampilateur 
cherche à résoudre Le même mot dans FORWARD. Le programmeur 
n'a plus à se préoccuper des procédures finales de 
résolution: il Lui suffit de définir tous Les mots dont il 
aura besoin dans n'importe quel ordre. 


6. LES EN-TETES DANS LA CIBLE 


Si Le système cible ne doit pas posskder d'interpréteur ou 
de compilateur Ce qui est notamment Le cas d'un programme 
ou module d'application, il est ÉCONOMIQUE de métacampiter 
La cible sans en-têtes c'est-à-dire sans vfa, Lfa et nfa 
échamps vue, Lien et nom) pour ne garder que tes cfa et pfa 
(champs code exécutif et paramètres). IL suffit pour ce 
faire de donner à La variable META WIDTH La valeur zéro. 
Cette variable contient en fait La Longueur maximale d'un 
nom de mot: elle est d'ordinaire fixée à 31 (codage sur 5 
bits) en FORTH. 


Un système cible métaconpilé sans en-tête est un quel 
FORTH totalement fermé: il ne contient que du code et des 
adresses de code appelées par L'interpréteur interne du 
St IL est impossible de Le décompiler, un DUMP ne 
permet aucun repérage, Le désassemblage est inelficace pour 
en saisir Le fonctionnement. Outre Le gain en place, un tel 
système offre donc une excellente protection du travail 
conceptuel de son auteur. Les grandes applications 
commerciales écrites en FORTH sont bien évidemment 
compitées sans en-têtes. 
Dans un système ouvert, il peut être intéressant de 
métacompiter certains mots Sans en-têtes: des primitives 
qu deviendront inutiles, des protections, des mots 

ransitoires ultérieurement "patchés", des mots cachés. 
Attention cena aux risques de plantages 5i ce système 
permet L'utilisation d'un décompilateur. 


7. LES TYPES DE MOTS METACOMPILABLES 


_ PHENIX TURBO-FORTH offre. ARE 
d'être mice tous Les types de mots utilisés par Le 
système FORTH sont prévus dans Le métacompilateur sans 
ue soit nécessaire de définir d'autres méta-définisseurs 

ans Le Source contrairement à celui du F43 où Le KERNEL 
contient encore des définitions pour METR. Ceci est 
pole grèce à L'utilisation plus Large des références 


Voici Les 12 types de mots métacompilables: 


a) LABEL mot) --- ; 
un Label est une zone codée sans en-tête dans La cible 
servant de référence pour Le méta-assembleur. La 
référence est créée uniquement dans ASSEMBLER de METE. 


CODE emat) --- 
métacompite un mot de bas niveau avec Le méta- 
assembleur. La référence est créée dans TARGET. 


Le métacompilateur 


b 


_—_ 


— 


c) VARIABLE mat) --- 
métacompile une variable, Une référence est créée dans 


TARGET ainsi qu'une constante du pfa-cible dans METR. 
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d) CRERTE tmot) --- 
RARES un en-tête et un code exécutif de type 
VARIABLE mais Sans pe Qouble référence dans 
TARGET et METR comme VARIABLE. 


ge) CONSTANT émot) n--- 
métacompile une constante explicite. Une référence 
est créée dans TARGET et La constante est également 
créée dans META. 


f) 2VRRIABLE (mot) --- 
comme VARIABLE pour une variable 32 bits. 


g) 2CONSTANT (mot) d--- 
comme CONSTANT que une constante 32 bits avec 
FÉRPNE dans TARGET et doubte-constante dans 


h) STRING (mot) n--- | 
métacompite une variable-chaine de 
maximale Gore Une 
TARGET et 
HETA. 


Longueur 
t e référence est créée dans 
a même variable-chaine est créée dans 


i) DEFER «mot --- | 
RÉRENQAlE un mot différé. Une référence est créée 
dans TARGET, Le mot IS de META permet de vectoriser 
naturellement ce mot différé. 


j) USER VARIABLE (mot) --- , 
métacompile une variable USER tèche-dépendante. Une 
référence est créée dans TARGET et une constante 
dans META pie directement dans La table USER 
de base de La cible. 


K) USER DEFER (mot) --- : 
métacompile un mot différé USER tâche-dépendant. 
Une référence est créée dans TARGET ainsi FRE 
constante dans META pointant dans La table USER de 
Len pour permettre La vectorisation de ce mot 
ifféré. 


L) VOCABULARY «mot) --- | 

métacompile un vocabulaire dans La Cibl 
référence est créée dans TARGET ainsi qu'un 
pseuda-vocabulaire dans META dont L'exécution 
modifie Le méta-contexte de La cible et UE 
L'action du mot META DÉFINITIONS qui établit Le 
méta-vocabulaire courant de  chainage des 
définitions dans La cible. Il est très important de 
considérer que pour l'hôte, il n'y 3 qu'un seul 
vocabulaire de références TARGET. IL est donc 
inutile de préciser dans une métadéfinition Le ou 
Les vocabulaires de méta-contexte. 


cibie. Une 


En contrepartie, it est recommandé d'user des homonymes 
avec une jte prudence en respectant L'historique des 
métacompitations. Ceci est notamment Le cas pour Les mots 


du métavocabulaire USER (tout particulièrement CREATE). 
8. META-DEFINISSEURS DE NOUVEAUX TYPES DE MOTS 


geut être nécessaire à l'utilisateur de définir 
utres types de mots que ceux prévus dans Le FORTH usuel 
sque c'est une des caractéristiques du FORTH 
autoriser justement La définition de nouveaux mots de 
éfinition, Citons par exemple Les tableaux à une OÙ 
Lusieurs dimensions, Le type fichier, Les vecteurs 
ultiples d'exécution etc... 


0 


Dans ce cas, il faudra définir pu et dans META, en cours 
de Ut du source, Les mots de métadéfinition 
adéquats. Le processus est assez délicat bien-Sür Mais Une 
bonne compréhension des mécanismes de métacompilation et 
L'exemple des douze types prédéfinis permet de 
métacompiler Les plus complexes structures. 


Tout d'abord, il faut définir dans FORWARD, avec FORWARD: 
(TYPE), Le code exécutif des mots de deuxieme pt 


Ensuite. il faut ini - | 
EE intbseut finir dans MER Hl ue Wridtr LE 
mat puisque : et ; sont réservés à La métacampilation 


elle-même. Dans cette définition, on 
du cfa du type 5 


métacompilation 112 
Le mat méta-défini doit su 


ir une initialisation 


susceptible d'être exécuté pour modifier La métacompilation 
Le-même, ie recréé de 1 
pseudo-vocabulaires 
VOCABULARY. Lors de cette étape, bien faire 
ILer dans META Les bons mots qu s 


] et [META] dans la 


Ensuite, il faudra métacompiler Le mot ini 
e code exécutif des mots métadéfinis. 
de définition bas 


(ne hôte (utiliser 


de définition et 
résoudre ainsi | 
s'agit d'un mot de < 
code et une définition :, 
:...; CODE LABEL CTYPE) code résoudra toute 
nouveau type. S'il s'a 
c'est-à-dire d'une 

faire suivre Le DOES) 
FORWARD. Là encore 

résolution immédiate 


3. LA METACOMPILATION CONTROLEE 


Le métacompilateur PHENIX du 
nouveau concept 


ou une définition 


» de META par la référence (TYPE) de 
le méta-compilateur PHENIX permet une 


TURBO-FORTH introduit un 
La métacompilation contrôlée 
1 Le terme ‘"Néoténique" est un 
terme zoologique anisme capable de 5e 
d'abord de rappeler ce qu'est un COMPACT. 
Un COMPACT est une appl ée sans en-têtes 
compilés Les mots nécessaires à 
Un tel programme offre évidemment 


ication FORTH compil 


L'application définitive. 
des avantages multiples: 

exécution optimisée, prot 
dans un environnement int 


ection maximale, 


Pour compiler un COMPACT, il convient de 


métacompiler sans 
Stème FORTH d'abord 


Limité aux primitives 
étendu à L'application 


e de connaître quels sont 
ensemble de mots 


décompilation récursiv 
eurs view- fields. 
grammeur de COMPACT à éditer un 


Le KERNEL propre de TURBO-FORTH 


grimitives au niveau de 


Plutôt que d'obliger Le 
source Limité aux primit 
plus pratique de réutiliser 


Le métacompilateur 
es mots homonymes 
"hôte, Dans ce mode 
soit validée dans La 
un retgur en arrière. 

toutefois conservées 


Dans cette option, 
du KERNEL que | 
e Vocabulaire FORTH de t 


réalablement indexé. 
HENIX ne conservera 
"marqués" dans | aire 
chaque métacompilation est 
immédiatement oubliée par 
es TARGET et FORWARD sont 


initialisations p 
ont pas d'effet. 


Pour créer de façon rapide un COMPACT, il faut donc: 


a) compiler une première fois L'application 


l'application à : 
Qur Les mots vectorisés 
rimitives rapides). 


€) charger Le métacompilateur PHENIK. ors | 
n | 5 OFF), métacompilation 
contrôlée asservie à L'hôte SL ON], Sauvegarde en 


attente d'une suite (SAVING OFF 
d) métacompiler L'ensemble du KERNEL 


e) compiler à nouveau | ous META cette fois, 


c'est-à-dire La métacompi 
métacompilation 


initiaiisations, option de Sauvegarde définitive pt nom vu 
fichier de sauvegarde, 


Un petit exemple de tin d'un COMPACT 
US Le métacompitateur PHENIX, La réalisation de 
COMPACTS y apparaît comme un Exercice FORTH somme toute 
45587 simple! 


Quelques précisions sur Le système de contrôle. Le seul 
Vocabulaire détenteur des nus est Le vocabulaire FORTH 
de l'hôte. Si L'application u llise des mots non compilés 
dans FORTH, alors que dans Le COMPACT il n'y aura bien-sûr 
aucune notion de vocabulaires puisqu'il N'y aura ni 
en-têtes ni  interpréteur, Il faudra soit ARE 
l'application sur ce point, Soit définir dans FORTH des 
mots fictifs annee et individuellement marquês, soit 
ENCOTE Supprimer Le mode contrôlé Lors de La méta- 
nation de L'application. Ainsi, même 5i tous Les mots 
FORTH Sont marqués, La st onpL at on de KERNEL en 
CHECKINE ON ne donnera Das un TURBO-FORTH complet (exemple 
Le END-CODE du vocabulaire ASSEMBLER) 


Le JS te de CREER TN contrôlée peut être AU 
avec La directive FORCED, Après cet ordre de META, toute 
métacompilation est forcée dans La cible sans contrôle 
d'asservissement. Le contrôle peut ensuite être rendu par 
La directive UNFORCED, 


Les LABELS sont toujours en Compilation forcée, mème Ceux 
qui peuvent être inutiles au COMPACT, ceci pour éviter 
tout oubli ou erreur difficile à détecter dans La mesure 
où les Labels ne sont pas VE et peuvent être 
utilisés très à distance de Leur définition, De nême, pour 
LE Le RAAUAUE et Limiter Les erreurs, un petit 
nombre de mots est d'emblée forcé dans KERNEL. IL s'agit 
de COLD, BYE, de La zone USER avec UP et de ‘TIB qui comme 
UP est initlalisé par La procédure codée de démarrage à 
froid. Dans ces conditions, un COMPACT minimal, qui ne 
ferait absolument rien, ‘en pheqane juste BYE dans COLD 
AE 3460 octets. C'est Là Le proton du noyau 
TURBO-FORTH. 

La Compilation contrôlée peut aussi s'effectuer avec des 
en-têtes si L'utilisateur désire métacompiler un système 
avec interpréteur voire compilateur simplifié. 


Un Système de contrôle différent de celui basé sur 
L'asseruissement au FORTH hôte via Les vfa marqués po 
être installé en changeant Le vecteur du seul mot ?VALID. 
Ce mot est celui qui contrôle La validité de chaque 
métacompilation en affectant La variable VALID. 


10. OPTIONS ET UTILISATION DU METACOMPILATEUR PHENIX 
Le métacompilateur PHENTX propose 4 options modifiables 


fe l'utilisateur. Ces options sont fixées ji défaut dans 
“optique du clonage in extenso de FURBO-FORTH Lui-mème. 


L'opération de méta-reproduction de TURBO 5e réalise 
RTE Sous TURBO-FORTH par La commande INCLUDE 


Dans Le détail, cette génération s'opère en deux temps. 
Tout caport Le aétacompiLateur ponoue un  KERNEL complet 
dans Le fichier TEST.COM. u1S L'intégrateur Lance 
TEST.CON avec La Commande de S'auto-étendre avec Le NOVEL. 
Le noyau comprend Les utilitaires usuels de TURBO-FORTH. 


Ce procédé offre plusieurs avantages, La compilation du 
Noyau est plus rapide que sa métacompilation. Le noyau 
comporte plusieurs mots de définitions dont une quinzaine 
pue Le Seul assembleur qu'il aurait fallu prédéfinir dans 
€ métacompilateur. Le ul n'offre guère d'utilité dans 
un système compact. IL est plus facile d'étendre TURBO en 
compilation qu'en métacompilation. La compilation autorise 
La gestion de plusieurs vocabulaires. 


En fin d'autogénération du NOYAU, L'utilisateur pourra 
indexer 585  vocabulaires avec Les fichiers d'auto- 
ART La EAP pus de RE 
otale de àr un COYSTEM. Avant de. quitter ce 
TURAO-FORTA cable par ME On re UE OP OQUILET fe 
répertoire courant retrouvera bien META-BAT. En effet 
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cette sortie se fait dans Le TURBO-FORTH hôte Lequel était 
en cours d'interprétation de META-BAT. De Là, un deuxième 
gYE ou F8 permet enfin de revenir äu 006 et de Lancer Le 
nouveau système métacompité. 


Les options du métacompilateur seront modifiées avant Le 
cpiene du source dans Le cas d'une autre utilisation 


que [a méta-reproduction de TURBO-FORTH. 
L'option WIDTH, variable de META, précise La longueur 
de La cible. Une valeur à zéro 


maximale des DES noms de. yaleu 
nos WIOTH OFF) signifie une métacompilation Sans 
en-têtes, 


L'option CHECKING ON place Le métacompilateur en mode 
contrôlé asservi au mots marqués de FORTH. CHECKING OFF est 


L'option par défaut, sans contrôle. 


L'option SAVING OFF permet de ne e savegriee La cible 
en fin de métacompilation Sur ‘€ mot ENO-META. Ceci est 
requis si L'on compte relancer META pour métacompiler une 
suite au KERNEL. L'aption SAVING ON est celle par défaut. 


L'option TARGETS est une variable-chaîne contenant Le nom 
du fichier de sauvegarde si SAVING est ON. On L'affecte Es 
une commande du qu ‘ PROG.COM' TARGETS $! . La variable 
TARGETS est El défaut initialisée avec Le nom TEST.CUN 
utilisé par La procédure complète META-BAT. 


LE cons des options du métacompilateur s'obtient avec Le 
mot OPTIONS de META. La fin d'une session de méta- 
compilation s'effectue avec END-META qui affiche un compte- 
rendu et Sauve éventuellement Le code métacompité. On 
vérifiera surtout qu'il ne reste pas des références FORWARD 
non résolues. Le mot .SYMBOLS peut en outre être utile pour 
Lister La Liste des mots métacompilés et validés. 


11. EXEMPLES 


La meilleure façon de 5€ familiariser avec Les procédures 
de RLACOmpL a EN consiste Lire et comprendre Les 
saurces. Voyez tout d'abord comment recréer tout 
TURBO-FORTH avec La commande 


INCLUDE META-BAT 


Lisez META-BAT.FTHO, 
KERNEL.TXT et NOYAU.TAT. 


Voyez ensuite comment créer un petit COMPACT QUESTION. CON 
en Lançant La commande 


INCLUDE QST-BAT 


Ce petit compact sera bien utile dans vos fichier batch: il 
permet de poser Une question à SE on répondra par Ù 
qu N. IL recgnnait aussi Le Y de VES et possède une réponse 
de normand 97? qui permet de choisir une réponse par défaut 
ou de reposer La question. Il fournit Le paramètre 0 1 ou ? 
pour La commande ERRORLEVEL. 


RUE est écrite et commentée dans QUESTION.FTH. 
C'est volontairement ee utilisée une structure 
CASE... ENDCASE pour montrer QUE PHENIX est intégral: il 
sait métacompiler cette structure de contrôle. 


NOTE DE LA REDACTION: 
Le programme de méta-compilation et Les nouveaux fichiers 


source sont diffusés sur La disquette contenant Le module 
NS de TURBO-Forth, dont voici Le contenu: 


examinez META.FITH,  parcourrez 


METR FTH Nouveau ser AeN 

PHENIX DOC L'article ci-dessus : 

META-BAT FTH Le programme de reconstruction de TURBD 
KERNEL TXT ère partie du source de TURBO 

NOYAU IXT 2ème partie du source de TURBO 


Q51T-8AT FIH Petit programme illustrant COMPACT 
QUESTION FIH Programme LL Q57-8AT.FTH 


COMPACT FTR  Scrütateur récursif de primitives. 


Pour toute question, 361 GAMXJEOI dans Les BALS FORTH7 OÙ 
SECRETAIRE. 


Jr M746- ain 1988 


Le pue COMPACT étant d'intérêt général et appiicable 
à d'autres sie FORTH 83-Standard, en dehors de FURBO- 
Farth, il est diffusé ci-après. H 


FORT ner 


COMPACT - 1: 
Scrutateur récursif de primitives 
pour métacompilation de modules COMPACTS 


par Michel ZUPAN 


Diffusion: module MS de TURBO-Forth 
téléchargement 3615 SAMXJEDI 


Listing: COMPACT 1.FTH 
ONLY FORTH DEFINITIONS ALSQ HIDDEN ALSO DECIMAL 


Parcours de L'ensemble du dictionnaire 
DEFER EFFECT ( cfa -- ) | 
\ mot d'action sur chaque mot € depuis Le cfa ) 


.  APPLY (ice ==) | 
\ action ROAquse à tous Les mots des vocabulaires 
IS EFFE 


VOC-LINK @ 
BEGIN ?OUP WHILE 
DUP FTHREADS 2+ - 
HERE #THRERDS 2x CMOVE 
HERE #IHREADS LARGEST DUP  WHILE 


BEGIN 
DUP LINK) EFFECT 
@ SUAP ! 
REPEAT  2DROP € 
REPERT ; 


\ APPLY Le toutes sortes d'opérations sur 
{ L'ensemble du dictionnaire. Le . 
\ Ainsi Le afficher tous Les mots, suffit-il de définir: 


\ «WORD CR NAME .ID ; puis d'exécuter 
\ ! WORD APPLY 
\ PS récursif et marquage des 
\ primitives dans Les VFA 
+WORD {SIP -- IP ) 24; 
+INLINE {S IP -- IP' } 2+ + 
: +STRING {5 IP -- IP! ) + COUNT + ; 
: +00E5? (5 Ip -- {P' )  D0ES? 0= IF DROP © THEN : 
: +FINISH (S IP -- IP' )  DROP 0 ; 
| Rappel : Classification de chaque mot dans Une 
\ définition 
{ 14 ASSOCIATIVE: EXECUTION-CLASS 
\ ÿ } ' (LIT), {€ 1)! ?BRANCH , 
\ { 2) ' BRRAC , 
\ { 3)! (L0tP), { 4 } ' CHOOP), 
\ { 5) ' (00), 
\ { 6) ' COMPILE, tt Ce 
\ { & )}' CABORT'), 
\ { 4) { jC0DE) ; { 10 } ‘ UNNEST . 
\ (1) 0), 
\ {12 ) ' (700), (13) GUSES), 
15 CASE: +EXECUTION-CLASS 
Q } +INLINE € 1) +INLINE 
{ 2 ) +INLINE { 3 ) +#INLINE 
{ 4 } +INLINE { 6 ) +INLINE 
{ 6) +WORD € 7 } +STRINE 
{ 8 ) +STRINE { 9 ) +DDES? 
(10 ) +FINISH { 13 ) +STRING 
{ 12 ) *INLINE ( 53 ) +FINISH 
{ 14 ) 4WDRD ; 


: NEXTWORD € IP -- IP" ) 
QUP @ EXÉCUTION-CLASS +EXECUTION-CLASS ; 


 SObor À HZ À VE Pr à 


l'efface La marque dun mot 


\ marque un mot 


{ cfa-- ) \affiche un mot si marqué 


: ,5P0T 
DUP VIEW € 
IF 


DUP @ [3 KEY @ OVER = SWAP [') EMIT @ = OR 


IF BOLD THEN | vectarisé 
DUP C°] START à IF UNDERL THEN 
CR NAME ID 
ELSE DROP 
THEN ATTOFF ; 


: LOOKUP C cfa-- ) un 
| voue tous Les mots utilisés par un mot 
DUP SPOT 
UP @ £'} QUIT @ = IF BODY 
BEGIN DUP @ RECURSE NEXTWORD DUP 0= UNTIL 
THEN OROP ; 


4 


\ hors KERNEL 


: FOREWORDS € émot) -- D 
\'affiche toutes Les primitives d'un mot 
['] UNSPOT APPLY 
\ remet Ut Les marques à zéro 


" LOOKUP C en  . 

À naqe (es pARnE du mot gui suit 

['J .SPOT APPLY l'affiche Les mots marqués 
| FOREMORDS (MOT> affiche toutes Les primitives 
Putilisées par (MOT) 


{Les mots vectarisbs sont en us Les mots qui 

1 ne font pas partie du KÉRNEL de TURBO-FORTH 

\ Sont ans L'édition d'un noyau ne gr) 
\ que ces mots, us métacompilé en WIOTH OFF, 

L produit un COMPACT de L'application (MOT) sans 
U en-têtes ni Librairie. 


E0F 


Un Programme d'Application Compact ou COMPACT est un module 
Forth Compilé sans en-têtes ni Librairie. Un tel programme 
s'utilise dans Forth mais surtout en dehors de Forth comme 
un quelconque Este compilé en code. L'avantage du 
compactage e5t évident: chargement rapide, gain de place 
dans La mesure où seules Les primitives de L'application 
sont compilées sans . dictionnaire protection 
considérablement accrue du fait du caractère fermé" de 
l'application sans possibilités pratiques de décompilation 
ou de désassemblage. 


Je vous propose ici une méthode de compilation de COMPACTS 
assistée par l'utilisation d'un "scrutateur récursif de 
primitives". L'écriture du Source d'un COMPACT reste 
cependant en TES partie manuelle. En fin d'article 
RM RE l'étude de La surgénération automatique de 


Rien de tel qu'un exemple pour illustrer notre propos: j'ai 
choisi une application volontairement simpliste qui ne 
un mot Forth. Supposons que nous désirions 


tiendra qu'en un. 
fréquemment connaître La Liste des Commandes exécutables 
c'est-à-dire Le directory des 


dans Le PoRe courant | 
fichiers .COM où .EXE ou encore .BAT qui sont Les seules 
ordre de recherche par 


extensions autorisées dans cet 
MS-005 pour des commandes directes, Le mot DIRCOM réalise 
facilement cet objectif. En voici une version simplifiée 
qu affiche Les noms des fichiers avec extensions et 
ailles sans dates ni heures de créations: 


: DIRCOM © --- ) | affiche directory des fichiers .COM 
ÆXE BAT …. 

128 SET-OMA ," Fichiers exécutables:" 

+, BAT" " #.EXE" 4 COM" 


3 0 DO 
PRD SWAP CMOVE 0 PAD 5 + €! | chaîne asciil 
PAD 16 (SEARCHO) \ cherche ter fichier 
IF \ Si trouvé: | 
BEGIN CR NAME l'affiche nom, ext, taille 
\ cherche un autre 


LOOP ; 


La Solution classique pour définir un modute ON 
Forth consiste maintenant à sauver Le programme tel quel. 


L'exécution en sera immédiate avec sortie dès celle-ci 


achevée: 


: APPLICATION DIRCOM BYE : 
* APPLICATION IS BOOT 
SAVE-SYSTEM DIRCOM. COM 


Nous disposons ainsi d'un 
autonome qui peut être Lancé depuis Le prompt du DDS ou 
d'un fichier batch, depuis un AE BASIC ( SHELL 
“DIRCOM" }, un programe GBASE { RUN DIRCOM ), PASCAL, C, 
TURBQ-FORTH { PROGRAM DIRCOM.COM au " DIRCOM" SHELL ), où 
depuis tout autre Logiciel possédant un intégrateur. 


DIRCOM.COM est une commande d'environ 26K. Ce n'est pas 
énorme mais Vous Comprenez aisément tout l'intérêt qu'il ÿ 
aurait à disposer du même programme compilé sans en-têtes 
avec Les Seules primitives de notre mot Forth 
d'application. ut à La place occupée dans ces 264 de 
L'interpréteur Forbh, Le compilateur, Ll'assembleur, Les 
utilitaires et des centaines de mots lnutiles pour notre 
programme. 


module exécutable DIRCOM 


Pour compacter DIRCOM, it “suffit” de métacompiler sans 
en-têtes un RAS Forth ne comportant que ce qui est 
nécessaire au mot DIRCOM. La métacompilation sans en-tètes 
est autorisée dans (e métacompilateur: avec Comme 
directive de métacompilation une Largeur de noms WIDTH à 
zéro, Les VFA, LFA, ou NFA ne seront pas compilés dans La 
cible. Pour savoir quelles sont Les primitives de DIRCOM à 
compiler, nous utiliserons un scrutateur récursif de 
rÉRININES qui va "marquer" tous Les mots utilisés par 
DIRCOM dans un jrs de décompilation récursive 
jusqu'aux mots de plus bas niveau. 

APPLY PAL d'appliquer sur tous Les mots de tous Les 
vocabulaires une procédure quelconque. Les applications 
dépassent de Loin notre propas actuel: je vous Laisse Le 


Loisir d'y méditer. 


Définissons maintenant notre scrutateur de primitives. 
Nous récupérons pour ce faire une partie du décompilateur 
dans Le vocabulaire HIDDEN. Pour marquer  (SPOT) un mot, 
nous utiliserons pour chaque mot ce champ d'indexation 
qu'est Le view-field. J'insiste sur L'importance qu'il y à 
d considérer Les view-fields (vfa) comme des pointeurs 
multi-usage. Bien entendu, nous perdrons temporairement 
utilitaire d'autodocumentation mais quelques LEARN 
pourront par La suite Le rétablir. 


Le Coeur du système est LODKUP 1 décampile et marque 
toutes Les primitives d'un mot de façon récursive. Le mot 
utilisateur est FOREMORDS qui Liste Le travail de LOOKUP. 


Si nous exécutons FOREWORDS DIRCOM nous obtenons La Liste 
suivante des primitives de notre application: 


RCOM NAME OMA SET-OMA (.*) (') SCAN D.R (D.) 45 # SIGN 
#) Cf HOLD B00S (SEARCH) (SEARCHO) SPACES REPLICATE TYPE 
CR PAD HERE COUNT BL EMIT HLD BASE MU/MOD D0BS ?OUP 2DROP 
20 MAX © OC 0= UMIMDD 1-1 1- 1+ 9 0 - + NOT OR AND RER 
R) ?OUP -ROT ROT TUCK OVER SWAP DUP DROP CMOVE Ci Œ@ 1e 
(200) (00) (LOOP) ?BRANCH BRANCH (LIT) UNNEST 


DIRCOM apparaît nn c'est Le seul dont La définition 
n'est pas dans Le KERNEL de TURBO-FORTH, CR et EMIT sont 
En gras: Ces mots vectorisés devront recevoir un vecteur 
approprié à l'application. 

ICI s'achève L'aide à La EE du COMPACT. Muni 
d'un bon éditeur, reprenons KER EL.TXT pour garder ces 
Seules primitives, ajoutons La définition de DIRCOM et 
définissons simplement COLD comme DIRCOM BYE. 


Nous êditons ainsi un fichier DIRCOM.TXT 
plus qu'à métacompiler sans en-tètes: 


INCLUDE META 
META WIOTH OFF 
INCLUDE DIRCOM.TXT 


Pour vous fixer un ordre de 
DIRCOM.TXT que j'ai édité sans chercher 


qu'il ne reste 


grandeur, Le fichier 
à optimiser fait 
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tket Le COMPACT produit ainsi est un fichier DIRCOM.COM 
qui ne fait plus que | èk soit un roqunt de CERN de 
un à vingt. Le gain est évidemment très appréciable... 


Notre prochaine étape sera, UNE fois L'application Forth 
marquée par LE A ae récursif, d'autematiser La 


surcompilation du, COMPACT, Là sotution jose al 
e que Les mo 


CENFORMAT ON = 
SEMINAIRES ET CONGRES INFORMATIQUES 
EN EUROPE 


pour La saison 88-89 


métaconpilateur qui ne compilera dans La cit 
marqués dans l'hôte. 


12-16 se 1588 

EUROGRAPHICS'88 - NICE (F) | 
Qrganisateurs: INRIA ,EUROGRAPHICS. Renseignements et 
inscriptions: INRIA Relations exterieures. Tel, 39 63 55 01 


12-16 Septembre 1988 . 
Convention 1A'88 / ere conference et exposition du 
eur Les techniques et Les applications de L'1R - PARIS (F) 


Grganisateurs: BIRP. Renseignements et inscriptions: BIRP, 
Ed, Hermes 


12-16 Septembre 1988 | 
Ecole d'ete de EL ques de structures assistees 
pur ordinateur - SOPHIA-ANTI QEIS CFD. 
rganisateurs: CCE. Renseignements et inscriptions: Fac. 
des Sciences, IMSP,. Dept. de Math. Parc Vatrose 06034 Nice. 
Tel, 99 52 38 98 


15-16 HAE 1988 | 
3rd Conference on ect 
performance evaluation - PALM 


15-17 Septembre 1968 
ECOOP'88 !  Eurapean 
programming - OSLO UN) 


19-22 Septembre 1988 : j | 
CRIS'88 ! Conference on computerized assistance during the 
information systems Life cycle - EGHAM (68) 


RALEUE and tools for 


DE MAJORQUE (SP) 


conference on  object-oriented 


20-23 Septembre 1988 

NAS INFODIAL-WIDEOTEXT 
L'information et du videotex en Europe 
PARIS (F) | NS 
Organisateurs: SICDB. Renseignements et inscriptions: SICOB 


21-23 Ptit 1988 
EGGCIRC'86 ! téth European 
- MANCHESTER (BB) 


24 Septembre - 01 Octobre 1388 
ist International AE on 
(NL) ,AMSTEROAM (NL) ,ROTTERDAN 


26-28 Septembre 1988 | 4 
Journees PRE experts et gestion d'entreprises" | 
SEGE'88 - VERSAILLES (FI. 

Qrqanisateurs: EC2. ES et 

Sainftou, 269-247 Rue de La Garenne. 
47 80 70 00 


26-20 Septembre 1388 k N, 
de dJournees/ Pratique des methodes et outils Logiciels 
d'aide à La conception de systemes d'information - NANTES 


{F) 

Organisateurs:  LIANA univ. de Nantes. IUT Lab. 
Donne aues Renseignements et RES H. 
Habrias, IUT, LIANA, 3 rue Mal Joffre. 44041 antes. tel. 


40 30 60 90 


03-07 Octobre 1988 re | . 
fe ce international de fiabilite et de maintenabilite 
- STRASBOURG (F) : | un 
Organisateurs: CNES. Renseignements et inscriptions: ADERR. 


L'industrie de 
a l'horizon 1992- 


solid-state circuits conference 


electronic art - UTRECHT 


inscriptions: M.-M. 
92000 Nanterre. Tel. 
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BP 48. 33166 St Medard en dalles Cedex. Tel. 56 05 A4 24 


03-07 Octobre 1988 
EUUG Qutumn'88 conference | 
LIGBONNE (P) 


04-06 Octobre 1988 | _ 
Colloque ergonomie et intelligence artificielle - BIARRITZ 


new directions for UNIX- 


TRS EU AFCET. Renseignements et inscriptions: 
AFCET 


17-19 Octobre 1988 ” 

&th SAS World conference-exposition on structural analysis 
CADICAM and AT graphics { FEMCAD'88 - PARIS (F) 
Organisateurs: IITT. Renseignements et inscriptions: IITT 
Qnstitute for industrial technology transfer) 


17-20 Octobre 1988 


FE Lu annual conference { Information-now - HEIDELBERG 


17-21 Octobre 1988 | 
3rd International symposium on knowledge engineering- 
MADRID (SP) 


18-20 Octobre 1988 , ; | 
Je Conference annuelle eurapeenne | prise de decision et 
controle manuel - PARIS (F) 
DÉLLERRIE: EDF, Renseignements et 
EDf-Clamart {Mr Lhory) 


24-28 Octobre 1988 ; 
ISATA ! 19th International US on allied technology 
and automation - MONTE CARLO (MC) 


15-17 Novembre 1988 dd. 
Journees internationales / Les PeSEaux neuro-minetiques et 
RENT BUS L NEURO-NIMES'88 - NIMES (F) 

DURÉE eurs: EC2. PAT UN QE et inscriptions: EC2. 
269 Rue de La Garenne 932000 0 70 00 


16-18 Novembre 1988 
th International conference 
approach ! ER'88 - ROME (1) 


05-09 Decembre 19388 

Journees, internationales } 
applications - TOULOUSE (F) 
Me LUE EC2. RES ET REMENS et 
964 Rue de La Garenne 92000 Nanterre. tel. 47 


06-08 Decembre 1988 
42th International 
- LONDRES (68) 


07-09 Decembre 19388 : | … 
Journees nationales HUUENS artificielle"  ! 
perspectives pour L'education et La formation - LYON (F) 
one INRP Institut national de recherche 

pe HAnsS RESTE et inscriptions: B. Qumont, 
INRP, eri. 92120 Montrouge 


13-15 Mars 1989 | 

2e Colloques national / L'automatique pour L'aeronautique 
et L'espace - PARIS (F) | | 
Organisateurs: SMAL (Societe des mathematiques appliquees 
et industrielles). RU QE et inscriptions: 
CNRS-LSS/ESE, Plateau du Mouton. 91190 Gif sur Yvette. 
Tel, 69 41 40 40 


11-13 Avril 1989 
th International 
system protection - 


11-15 Septembre 1989 | | . 
sth. International Us on numerical methods 1n 
engineering - LAUSANNE (CH) | . 
Qrganisateurs: EPFL GAMNI. Renseignements et inscriptions: 
SO Nicli. GASOV-EPFL. CH 1015 Ecublens (CH). Tel. 
(41)21-47-22-11 # 


inscriptions: 


anterre. tel. 47 8 


on entity-relationship 


Le genie logiciel et Ses 


OU Res 


Online information meeting / ONLINE'88 


4 rue Gabriel 


conference on - developments in power 
EDINBURGH (68) 


par Marc PETREMANN 


# diffusion 3615 SAMHJEDI 
+ adaptable BASE III sans difficulté 
# 
20 WHILE .T. 
SET COLOR TO W#/N 
@ 6,9 10 16,74 DOUBLE 
“ £, 20 SYLE , ITION DES RAPPORTS] 
T COLOR TO W/N 
{ FIN DES EDITIONS 
RECHERCHE ET EDITION DES ERREURS DE SAISIE 
EDITION DES RECAPITULATIFS PAR TYPE DE FRRAUREN 
EDITION DES SUIVIS MENSUELS PAR TYPE DE CARBURANT 
EDITION OU RECAPITULATIF MENSUEL ACHATS CARBURANT ET DISTANCE 
EDITION D'UN BOROEREAU DE SAISIE DES CONSOMMATIONS 
STATISTIQUES DE LA CONSOMMATION D'UN VEHICULE 
STATISTIQUES SUR L'ENSEMBLE OU PARC VEHICULES 
{ EDITION CONDUCTEUR, CONSOMMATION ET REPARATIONS MENSUELLES 
NTENSITY ON 
à dr: 10 SAY cho 
@ 08,10 SAY ch1 
910 SAY ch? 
10 SAY ch3 
,10 SAY ché 
10 SAŸ hs 
,10 SAY ch6 
4,10 SAY ch7 
@ 15,10 SAY ché 
choixa = 0 
CE + STR(chaixa 1) 


a" 1. 10 GET chû 
00 while .T. 
tou = INKEY() 
00 WHILE tou=0 
tou = INKEY() 
ENDDO 
00 CASE 
CAGE (tou=5) . (tou=24) 
@ 7+choixa ï “SAY CHxchoixa 
STORE ! TIF({ouz 25 ,choixa-1,choixa+1}) T0 choixa 
IF choixa=- 1 


es Es ae Ce Lee es 


CC COR CCR CT CT ST 


choixa = MOD(choixa, Le 
xchoixa = STR(choika , ! 
@ 7+choixa,10 GET NAS 
CLEAR GETS 
L00P 
* rec par appui sur CR 
CASE tou=13 
EXIT 
ENOCASE 
NDD0 


* Le jen programme illustre une procédure de HUE de menu déroulant 


# utilisable sous dBASE III+. te paramètre de sortie est choixa qui sera 
+ ensuite traité dans une Structure de type CAGE.. .ENDCASE. 


JE D n° 46. Jar (988 


DE: 
10 RS SÉCRETAIRE 


Du 11.07.88 A 15h05 


BILVERDIER 
DANS F-PACK : 
LE MOT 210PWR NE RENVOIT PAS LA VALEUR A LAQUELLE ON 
POURRAIT S'ATTENDRE, EST-CE NORMAL VU SON UTILISATION? 
SECRETAIRE Ou 12.07.86 A 14h06 ne 
REPONSE A PILVEROIER, concerne ?10PWR Ce mot n'est utilise 
que dans OPREP Lequel est utilise dans (E.) et (F.) Les 
mots (E.) et (F.) sont Les primitives de E. et F., lesquels 
ont L'air de fonctionner correctement: 


F'ACF. affiche 10 | 
S'il a des problemes avec ces mots, preciser dans quetle 
ee ils se produisent. Tenir compte des valeurs 


Limite des grandeurs utitisees apres F'. 


SECRETAIRE Ou 21.07.88 à 13h27 

BLACKOUT, PROGRAMME ENVOYE PAR M. ZUPAN: Eteint l'ecran 
sans perte de L'affichage en cours. Economise vatre ecran 
Lors des pauses cafe ... 

Ne fonctionne pas obligatoirement sur tous Les systemes PC 


LISTING: 


hex 
: BLACKOUT € -- } \ inhibe La video 
40 65 ECO F7 AND 40 63 L@ 4 + PCI : 
: LIGHTUP € -- } | retablit La video 
40 65 LCR B OR 40 63 LO 4 + PC! ; 
\utilisation: 
U bascule video onfoff avec ctri-V 
VARIABLE LIGHTING TRUE LIGHTING | 
: V-IN LIGHTING @ DUP 
IF BLACKOUT 
ELSE LIGHTUP THEN NOT LIGHTING ! ; 
!V-IN CC @ CONTROL V 28 + ! 
decimat 


C'est tout!. 


FORTHI Qu 21.07.88 A 16h20 | 
Je recidive: apres quelques deboires (apologies to 5y50p} 
je vous propose en un seul mot Turbg-Forth de balancer un 
ichier texte quelconçue dans CE forum: syntaxe: FORUM 
(fichier. txt. mn 
Les Lignes sont tranquees à 39 car. et suivies de SUITE. 
Les accents et autres non ascii sont remplactes par *. Un 
DL et ENVOI sur là derniere Ligne. | 
a partie en code configure votre RS232 (COM1) directement 
en mode minitel sens avoir à utiliser MODE. J'ai mis plein 
de tempos a case de l'oncle SAM... 
\ forum SAM#JEDI seulement : 
a forth also definitions decimal 
: FORUM ( (fichier) -- ) 
asmt 154 # ax mov 0 4 dx mov 
20 int next Jforth 
handle @ open handte ! | 
begin getline buffer count 33 min 
0 *do count dup 32 127 between not 
if drop ascii # then 4 (out) 150 ms 
Loop drop 19 4 (out) 72 4 (out) 
1000 ms eof? @ until 
ascii . 4 (out) 19 4 {out} 65 4 (out) 
close handte |! ; 


Quelques precisions encore Sur FORUM: | 
les Lignes sont impitoyablement Limitees aux 33 premiers 
caracteres: concoctez votre prose en consequence! 
2)Les temporisations sont AE 50 millisecondes entre 
chaque car. pour absorber Les 75 bauds et 7 secondes en fin 
de Ligne pour Laisser SAM faire 5qn Re Notre SYSQP 
nous dira si on peut faire plus vite. Reglez toutefais 
FUDGE pour que vas millisecondes ne durent pas un Let 
d'heure: 30 FUDGE ! pour un systeme à 4,7 MHz est une 
valeur approchee satisfaisante. 
F32 Qu 25.07.88 A 1 
LE 25/7] 


Je: N° 4€ - Tuin [188 


J'AI LE TEXTE OU BREVET EUROPEEN POUR LE NC 4016 
EXTREMEMENT ŒDETAILEE POUR LES INTERESSES ,JE PENSE A 
G.OUMUR ME LE DEMANDER POUR COURRIER:80 PAGES! DISCUSSION 
EN COURS AVEC NQVIX POUR LES PROBLEMES DE PROTECTION DES 
DROITS... UNE CARTE ND4000 CIRCULE-T-ELLE DANS JEDI? CE 
SERAIT LE MEILLEUR EMULATEUR SUIS TOUJOURS À LA RECHERCHE 
D'UNE STE  FRANCAISE POUR UTILISER LE MICRO, C'EST PEUTOT 
DEGERTIQUE! UN MEMBRE CONNAIT-IL UNE BOITE UN PEU 
DYNAMIQUE? + 


GRIMAULT Ou 26.07.88 À 13h43 

QUELQU'UN PEUT-IL M'ECLAIRCIR SUR LES DIFFERENCES ENTRE 
LES MICROS NC4016 (NOVIX) ET RTK2000 (HARRIS) ? 

A EEE QUEL FORTH EST UTILISE PAR LE 


SECRETAIRE Du 28.07.88 A 14h27 
AUTRE VERSION >FORUM DE FORTH? 


Dans Le fichier RGINIT, É propese une application 
permettant de transmettre des caracteres et codes de 
contrale TELETEL vers Le MINITEL. Dans la partie 


documentation, un exemple de connexion SAM#JEDI est donne. 
Voici une version modifiee de EMET, que k nomme TRANGMET 
et FE envoie une chaine ASCII vers Le MINITEL: 
TRANSMET ( adr Long ---) 
{ ! EMIT )BO0Y @ UP @ + ] LITERAL & DR 
C'] CRSEMIT) IS EMIT TYPE R) IS EMIT ; 
Ce mot est utilise en Le faisant preceder de l'adresse et 
de La crues d'une chaine de caracteres; exemple: 
80 STRING A$ 
* TEST DE TRANSMISSION * A$ £! 
A$ TRANSMET 
envoie sur Le minitel Le contenu de AS. 
Maintenant, pour transmettre tout un fichier ASCII dans un 
message destine à FORUM, utiliser Le mot >FORUM dont la 
definition est La suivante: 
\ forum SAM#JEDI seulement 
VARIABLE ALIGNES 
: OFORUM (© --- tfichier) ) 
MINITEL HANDLE @ OPEN HANDLE ! O0 #EIGNES ! 
BEGIN GETLINE BUFFER COUNT 99 MIN 
TRANSMET SUITE 7 ATTEND 1 LIGNES +! 
IF SOMMAIRE CLOSE HANDLE ! EXIT THEN 
ALIGNES @ 19 =: 
IF ENVOI 12 ATTEND 0 LIGNES ! THEN 
E0F? @ UNTIL 
ASCII . RS ENVOI CLOSE HANDLE ! 5 
Ce mot à L'avantage de transmettre n'importe quel fichier 
ASCII en pages de 19 Lignes. At Ligne est suivie de 
SUITE, chaque pate est coupee par ENVOI en fin de fichier, 
La sequence . et ENVOI termine Le AEES Les accentues 
sont automatiquement eur equivalents 
non-accentues. 


5T0n? 


traduits en 


SECRETAIRE Ou 29.07.68 A 13h13 

AFFECTATION D'UNE CHAINE ALPHANUMERIQUE DEPUIS LA LIRISON 
SERIE: Lors d'un acces MINITEL-PC, il peut etre 
interessant de recevoir une serie de caracteres dans Le 


sens MINITEL vers PC. : 
Exemple: Lors d'une tentative d'acces sur Le 3614, te PAV 
repond en general par üne premiere A E du que LI3 
XX. Je propose La definition du mot RSINPUT ea attend ur 
nombre de caracteres Limite en pravenante ce ia L1a150N 
MINITEL-PC: 
VARIABLE SORTIE 
: RSINPUT ( adr ton sé] 

SORTIE OFF  DROP OUP 2- C@ OVER SUAP OVER + SAP 

D0 BEGIN OR (GET) 4 = (KEY?) OR UNTIL 

- RX (GET) I CE! \ stockage caractere 

(KEY?) IF I OVER - SWAP 1- C! SORTIE ON LEAVE THEN 

LOUP SORTIE @ IF EXIT ELSE OUP 2- C@ SWAP - CI THEN ; 
Ce mot doit etre precede d'une variable alpha-numérique: 
12 VARIABLE At 


a$ RGINPUT 
Pour exemple, vous avez altume votre MINITEL, compose Le 
3614, puis envoye une sequence de neuf chiffres du styte 


1350009171 par La procedure suivante: 
AE RE ENVOI 
à 


affichera Les douze premiers caracteres transmis par 


TRANSPAC apres ENVOI. Ces caracteres sont contenus dans Af. 
Gi la sequence contient LIRB XX XKX, vous pouvez faire un 
programme envoyant Le cas echeant ANNULATION ou CORRECTION 


ou CKXF 


Ou 29.07.88 A 18h08 | 
L'auteur de ET sort une nouvelle version de cet editeur 
de textes en francais pour programmeurs distribue en 
shareware: jo ecran ultra rapide, 8 fichiers ASCII 
simultanes, 5locs, recherches substitutions, tabulations, 
partition ecran,  multivideo, macros  editables, 
EAN ATATe clavier, aide, integrateur dos et j'en 
passe. Cette version permet Le positionnement ie colonne 
au Lancement ce que seul L'éditeur de M.FAÎVRE pour 
Furbo-Forth nous offrait. ET 1.5 ne fait que ?25K! En 
attendant que Les farthiens se décident à écrire un 
EDIT-TO0LBOX en Farth pour fichiers ASCII afin que chacun 
ait L'editeur de ses reves. 


GUILLAUMAUD PH. 


FORTH7 


Du 30.07.88 À 11h06 
BONJOUR . J'AI ECRIS UNE VERSION POUR PC OU LANGAGE FORTH , 
ET JE LA TIENS A LA DISPOSITION DES AMATEURS DE FORTH . 
PQUR TOUS RENSEIGNEMENTS : 
MR. GUILLAUMAUD PHILIPPE 4 AVENUE JEBN MOULIN 93140 BONDY 
TELEPHONE : 48 48 79 45, JE DISPOSE AUSSI D'UNE B.A.L. SUR 
3615 SAM#JEDI, CODE PHIL. QUE LE FORTH SOIT AVEC VOUS... 
SECRETAIRE Ou 31.07.88 A th20 
MODIFICATION DU VECTEUR D'INTERRUPTION DE CLAVIER SUR PC: 
de suis tombe dernierement Sur un 05, à savoir que sur Le 
AL de traitement de texte OLIVETTI ETV 260 (compatible 
PL..,), Le clavier n'est po ère de maniere conventionnel - 
Le. L'activation de KEYBFR.COM avant execution d'un pro- 
Hu autre que Le traitement de texte integre, detruit 
es affectations des touches ‘Traitement texte’. Pour Les 
retablir, Il a fallu restaurer Le vecteur d'interruption 
clavier à son etat initial. ; 
Mai, Vous me connaissez, passionne pal TURBO-Forth, je VOUS 
ai resolu ce dilemne à ma maniere. Donc, je Lance TÜRBO et 
regarde Le contenu de L'adresse 0000:0024 contenant Le 
segment et Ll’affset de La routine de decodage du clavier. 
Ce contenu est Lu avant execution de KEYBFR par: 

HEX 0 24 L@ U. CONSTANT Ni 

0 26 L@ U. CONSTANT N? | 

Puis on Lance KEYBFR FE Les commandes suivantes: 

PROGRAM C:cheminikEYBFR.COM 

{ preciser chemin Le cas echeant) 
En controlant Le contenu de 0 24 L@ et Q 26 L@ (en hexa), 
on constatera que ces valeurs ont effectivement ete 
madifiees par rapport au contenu de N1 et N2. | 
Maintenant, creons on Pam qu sera charge de retablir 
Le vecteur d'interruption d'origine. Oh, il ne suffit pas 
de faire N1 0 24 L!, car il y aura plantage garanti. IL 
faut masquer Les interruptions par Le code assembleur cli. 
Voici le detail de La procedure a compiler pour arriver à 
executer cette delicate manoeuvre: 
\ Programme RESTAURE.FTH 
HEX 0 24 L@ CONSTANT N1 

0 26 L@ CONSTANT N2 

: REGTAURE { ---) 

ASME cli next JFORTH N1 0 24 L! 

QSME sti next JFORTH BYE ; 
* RESTAURE IS BOOT 
CR .{ Taper SAVE-SYSTEM RESTAURE) CR | 
Sauvez ceci dans un fichier nomme RESTAURE, LE SOUS 
TURBO, tapez INCLUDE RESTAURE  SAVE-SYSTEM RESTAURE BYE 
Maintenant, vous pouvez sur votre ETV 260 Lancer KEYBFR et 
restaurer Le clavier du traitement de texte integre en 
tapant RESTAURE, Merci TURBO! 


SECRETAIRE 


N2 5261! 


Du 31.07.88 R O1h54 
CONCERNANT RS GANS FICHIER RSINIT.FTH: 


IL semble que ce mot ne Se comporte pas de maniere 


identique sur toutes les Liaisons MINITEL PC. Il y à 
HAE Lors d'une transmission de chaine trop Longue. 
Voici [e remede: 

72 CONSTANT TEMPO 

LORS Co ---) 


TX CPUT] | envoi car vers reg de transmission 
BEGIN THRE [GET] nn. , 
| attente reg de transmission vide 
UNTIL TEMPO KG ; 
On ajustera Le temps entre deux caracteres par: 


n 15 TEMPO où n est une valeur delivree par TEMPO Lors 
de Son execution. Avec La valeur 72, on peut abaisser La 
valeur d'attente d'envoi entre deux Lignes dans La defi- 
nition de )FORUM donnee dans un precedent message. 

FORTH7 Du 31.07.88 À 14h45 

En reponse à La question de F32, Des piles Forth de pro- 
fondeur 256 sont bien suffisantes: certains forth n'en 
n'ont pas La moitie. Empiter 256 Armes est souvent 
une faute de programmation et La pile de retour est rare- 
ment Sollicitee au dela d'une dizaine de cellules sauf 
dans Le cas d'une recursion vraie (tours de Hanoi à 258 
plateaux 1), Si La question porte sur Le fait de savoir si 
un chip avec 256 mots-instructions Forth suffit, je signa- 
Le ee Turbo-Forth comporte 168 mots en code dont des 
constantes codes et pas mal d'interfaces MS-D0S pour des 
raisons de rapidite 8086. La machine virtuelle Forth n'à 
quere besoin que d'une cinquantaine de primitives! 

FORTH7 Ou 31.07.88 À 14h50 

Le dernier numero de Forth Dimensions A UARE Les travaux 
du comite ANS de standardisation du Forth: Le Forth-83 est 
adopte comme base mais La taille du 'mot' n'est plus ma- 
chine-dependante ce qui ouvre La quÊte a des systemes sur 
mots 32-bits. NIP et TUCK sont homologues. La division 
sera plancher où non avec pente RE d'un mode 
a L'autre pour garder la compatibilite entre diverses 
sources, Un nouveau concept d'interpretation de chaines 
arbitraires est introduit Sous forme du mot EVAL dont je 
n'ai pu trouver La definition: ne S'agirait-t-il pas tout 
simplement de SEXECUTE 77? 

SECRETAIRE Ou 03.08.88 A 00h57 

ESSAI FORTH DE GUILLAUMAUD | 

Bon, ben j'ai teste ce nouveau FORTH et suis assez etonne. 
Pour Le moins bien, disons qu'il est nettement incomplet. 
Il manque toute La panoplie d'aide au developpement dont 
dispose TURBO. | | 

Pour Le mieux: il decompile en affichant Les structures 
sous forme IF..THEN, BEGIN..UNTIL et avec Les 
indentations, svp. Sachant que ce decompillateur est 
INTEGRALEMENT ecrit en code machine, je Lire mon chapeau. 
Ce nouveau FORTH, nomme Le ForËh par 5eS auteurs 
SAONE ALI de LISP.,. ils vont s'entendre avec 
Mr JACCOMARD), compile des fichiers ASCII mais sans 
imbrications. Bref, 
JUPITER ACE. | 
51 Vous Le voulez, demandez en un exemplaire à GUILLAUMAUD 
PH, (dans sa BAL), où envoyez-nous 10 timbres à 3,70 au 
siege de l'association. 


GUILLAUMAUD PH. 8. hé 


un produit curieux qui fait penser au 


Du 04.08.68 A Oëh45 

LES CRITIQUES SONT TOUJOURS BONNES QUAND ELLES PERMETTENT 
DE FAIRE EVOLUER UN PRODUIT . 

LA VERSION 2 DE LE FORTH EST EN COURS DE DEVELOPPEMENT 
ET SERA CONFORME AU STANDARD 83, CE QUI EST LA MOINDRE DES 
CHOSES... MERCI À MARC POUR CE BANC D'ESSAI. QUE LE FORTH 
SOIT AVEC VOUS 


SECRETAIRE Ou 04.08.88 À 19h39 
FONCTIONS EVAL CONTRE $EXECUTE 
Dans le magazine Dr.Dobb's Journal d'octobre 87, Lori 
CHAVEZ, un americain bien au courant de ce ne se fait de 
mieux dans Le domaine du standard FORTH definit La 
fonction EVAL: 

: EVAL ( ar RRE ss 

DUP DR TIB SWRP CMOVE RG TIR ! 

QOIN ! Q BLK ! INTERPRET R)OIN D 
et pas etre utilisee sous La ferme Suivante: 


* FORGET MOI"  EVAL : 

Or, cette fonction EVAL à pour moi un air de vu. Bon 
sang, mais C'est bien sur! c'est SEXECUTE de TURBO-Forth! 
Aurions-nous eu La meme France gt Qutre-Atlanti- 
que? Qui, mais... | 

Le mot SEXECUTE de TURBD-Forth est re-pntrant lui! Voici 
un petit exemple: 

80 STRING R$ 


idee en 


60 STRING B$ 
* DARK WORDS * B$ $ 


# 5 l 
puis 2 FIEEUTE BEbecte Le contenu de A$ s'execut 
c'est à dire execute Le contenu 


Ter N°46. Turn 1788 


€, 
de B$. En fin de B$, La | 


11 


12 


SEXECUTE de 


re-entrance de € 
TURBO-Forth n'est Limitee que par La profondeur de pile. 


suite de A$ s'execute, La 


FORTH7 Du 06.08.88 A 13h34 
1F83 Rogue TF83 Bogue TF83 Bogue TF83 
Gans (GET) et (PUT) qui Litfecrit dans un fichier (segment 
tampon Long hndi-- AA TONs flag D il faut Lire à La 
deuxieme instruction AXES MOV au Lieu de ES AX MOV. Le 
crash se produit san an travaille en extra-segment entre 
deux (GET) ou (PU) car ES n'est pas toujours identique à 
05. EL n'est pas necessaire de re-metacompiler pour corri- 
ie cette Due J 
ex BE.' (GET) 4 + CI ; 
BE ! (PUT) 4 + CI decimal 
{ remplace BC Fi E dans Les 2 mots ) 
avant SAVE-SYSTEM TURBO 
SECRETAIRE Du 07.04.88 à 12h43 
A PAUL ORTAIS: concerne brevet NC4016: 40 pages c'est a55ez 
volumineux. bin de faire progresser Le poies F32, 5e- 
rait-il possible d'en faire uñe syn- these qui sera 
diffusee dans JEDI? : 
Je 5ai5, ecrire prends du QUES mais n'est ce pas prefe- 
rable à reproduire en x exemplaires une doc volumineuse. 
FREDB Du 12.08.88 À 20h39 
UEBER SQRT IN F83 HANOBUCH: 
{ BTK --} TELETEL, PRUEFUNG... } 
DAS WURZEL PROGRAM 
: SQRT DUP 27 10 0 00 OVER OVER 
+ 21 LOOP SWAP DROP ; 
GEHT NUR FUER ZAHLEN BIS 32767. DIE FOLGENOE MODIFICATION 
GEHT BIS 65535: 
: SQRT OUP U2/ 10 0 
00 ?0uP 0 SWAP UMIMOD SWAP DROP + U2} 
LO0P SWAP DROP ; 
SECRETAIRE Ou 12.08.88 A 22h03 
TIENS, NOUS AVONS UN CONSULTANT OUTRE- RHIN. JE TRADUIS: LE 
MOT SQRT FIGURANT DANS LE MANUEL F83 NE TRAITE QUE LES 
ALES DE O0 A 32767. SA DEFINITION MODIFIEE VA JUSQU'À 


SECRETAIRE Ou 14.08.88 À 08h41 
COMPILATION CONDITIONNELLE ,: Rae 
Voici un moyen tres simple de faire de La compilation con- 
ditionnelle, On redefinit un 
ue d fonction d'un flag booleen: 

NOT IF [COMPILE | THEN ; IMMÉDIATE : 
En execution, Le mat ?\ compile ou ne compile pas Le texte 
qui Le suit: 

- flag=0, agit comme | 

- flago0, RTL NOOP Je ; 
Voici un exemple illustrant une utilisation possible de ce 


FALSE CONSTANT FRENCH 
FALSE CONSTANT GERMAN 
FALSE CONSTANT ENGLISH 
TRUE IS ENGLISH 
: 10RY ( ---) 
FRENCH  ?1 .* LUNDI" 
." MONTAG* 


GERMON  ?! 
ENGLISH 71 .* MONDAY" 


La decompilation de 10AŸ montre dE La Seute chaine Compi- 
Lee a ete celle validee par ENGLISH. Toute L'astuce consis- 
te ici a exploiter des constantes declarees immediates et 
dont ie contenu est modifiable gar une sequence du type 

n IS (constante) 
F32 Du 19.08.88 A 22h34 
FORTH7 SUITE A UNE DE MES QUESTIONS CITE LA TAILLE MINIMALE 
D'UNE MACHINE VIRTUELLE. 
D'QU QUESTION: PEUT-ON DEFINIR DE FACON RIGOUREUSE CETTE 
MINIMALITE, SI QUI COMMENT, SI C'EST DEJA FAIT, OU ET QUI? 
JE SUGGERE QUE LES PERSONNES INTERESSEES PAR F32 DESIGNENT 
LEUR EMPLACEMENT GÉOGRAPHIQUE, QUE L'ON PUISSE SAVOIR QUI 
OCCUPE LE BARYCENTRE OU OU MOINS LE MEILLEUR ENDROIT POUR 
UNE RENCONTRE PRÉLIMINAIRE INDISPENSABLE. CONTACT PHYSIQUE 
A L'EPOQUE OU MINITEL ! POURH 


IMMEOIATE 
IMMEOIATE 
IMMÉDIATE 


JE N°4G.Fuin 1438 


mot similaire à | mais qui 


JE PARLAIS OU FA3 POUR LA MACHINE VIRTUELLE, 8 CAUSE DE 
MON AMSTRAD. MAIS SE ON PREFERE TURBDO-FORTH NO PROBLEM 


REUNION F32 MI-SEPTEMBRE. LIEU: PARIS QU BANLIEUE A 
PRECISER. PARTICIPANTS ENVOYEZ VOS FOURCHETTES, SOIR 
SEMAINE DE PREFERENCE 


JACCOMARD Du 27.08.88 A 11h38 pe 

- Pourquoi ne pas compramer les fichiers en 
SENS Les arguments "contre ‘ dans JEDI #44 5ont 
inconsistants. ; 

Bien sur, it faut faire gagner des sous au serveur, mais 
jen meme ... ARCE fonctionne sur tout compatible et est 
ans Le domaine public. 

- IL est tout a fait anormat d'ecrire des routines en 
Farth NON STANDARD. Dans FORUM du 21-7 on trouve a5ml, 
handle, Cout), je n'ont aucun equi- valents en FIG 
FORTH ou 83 standar . Est-ce du Volapuck? | 

- Je ne suis pas sur que Le Forum Soit bien Le Lieu pour 
corriger des bogues 


FORTH? Du 28.08.88 À 18h32 
Il li en 8 que pour TURBO-FORTH dans JEDI et son forum: 
on attend du €, du LISP, du PROLOG, du PASCAL, du MODULA 


du LSE, de L'APL et meme pour d'aucuns du bon FIG-FORTH au 
standard LUE Mais à qui La faute? Un Turbe-Forthien 


qui squatte JEDI vous Le demande, tres chers inevitables 
AUS 

UPC jour non anglophones 
: UPC.FR ( car -- car! ) 


upc * caaaaeeeeiiooouuu" 2 pick Scan nip negate ?dup 

if " CAARAEEEELIOOQUUU" + + C@ nip then ; 
convertit un caractere en majuscule, accentues compris. La 
premiere chaine ‘ caaaaeee..." est à Lire comme c- cedille 
et tous Les caracteres avec accents. Dur dur ce forum sans 
accent dans Ce Cas REMAE 111 Rdaptable outre”Rhin 
naturlich. C'est en F43 standard, En FIG ? : Sais plus... 
SECRETAIRE Ou 29.08.88 A 10h13 
JE VAIS ME FACHER... 
Il semble que seul F32 et deux ou trois autres connectants 
saisissent La finalite du FORUM. 
Certes, passer une annonce ou demander une bricole passe 
encore, mais il ne faut pas ri son temps a polemiquer 
sur Le bien fonde de l'existence de SAMAJEDI. Si vous 
voulez faire des economies, ne vous connectez pas! 
Maintenant, et je ne Le ct plus, tout ce ul ä un 
certain interet dans Le FORUM sera publie dans JEDI au fur 
et a mesure de 50n HE sur Le FORUM. Donc, Si vous 
ES pas presse, attendez La parution de votre magazine 
avori. 
Pour ceux qui veulent progresser dans Leur domaine, qui 
ont des trucs à proposer où des reponses à apporter, CEUX 
qui ont envie de reunir Les gens autour d'un grand projet 
dixit F32...), n'hesitez pas, Le FORUM est integra ement 
disponible. Le 
Et si pour l'instant Le FORUM n'est pas divise en themes, 
c'est parce Que nous ne Sommes pas encore envahis paf Les 


messages. Pour illustration, Le serveur TVSOFT (FR3 
telematique) fait une moyenne de 115 connexions 
simultanees, avec des pointes de 500 appels dans La 


tranche 12h00-14h30. . 
Enfin, L'usage du FORUM n'est ps Limite à TURBO-Forth. 
Comme L'exprime 5i bien FORTH7, parlez egalement de C, 
PASCAL, dBAGE, etc..., et que ce ne Soit pas toujours aux 
memes de faire de L'information. 
SECRETAIRE Qu 02.09.88 À 09h55 _. 
DIFFUSION OU MODULE 5 DE TURBO-Farth: Ce madule 5 contient 
Les nouveaux fichiers source de TURBO-Forth: 
KERNEL.TXT et NOYAU.TXT 
Ces fichiers, modifies par rapport à 
sont adaptes à La meta-compilation et 
nouveau  mete-compitateur  PHENIX 
compilation des fichiers suivants: 
META.FTH, META-BAT.FTH et COMPACTI.FTH Le 
La documentation de PHENIX est disponible dans Le fichier: 
phenix.doc ns | 
Un exemple de meta-compilation avec compactage est dispo- 
nible dE execution des fichiers: 
QUES [ON.FTH et QST-BAT.FTH se 
Ce dernier progranme genere par meta- compilation un pe 
gramme .COM minimal, compacte, c'est a dire sans en-tete 


Susfe en PR 14 


ceux du module M2, 
compactage par le 
disponible apres 


NOTIONS SUR LA MACHINE DE PILE (STACK MACHINE) | 
COMMENTAIRE SUR UNE APPLICATION: LE NC4016 
ADAPTATION AU LANGAGE DE PROGRAMMATION } 


J'imagine que tout le monde connait le microprocesseur, 
à savoir ce circuit de base qui execute du logiciel. Comme | 
pour tout objet technique, comme pour les 12 mètres de la 
coupe de l'’America ou comme pour les dinosaures, tout | 
commence par une architecture simple mais efficace. Ensuite 
l'évolution arrive faisant croître performance et complexité, 
de pair. Survient toujours un moment où l'architecture est | 
exploitée à fond, mais où demeure la concurrence. | 


Alors la voie du progrés passe par un raffinement, une 
surenchère technologique de plus en plus disproportionnés aux 
gains résultants. La fin est toujours la même: un principe | 
nouveau émerge irrésistiblement, à la fois plus simple, plus 
performant et économique: plus élégant en un mot. | 


L'apparition récente des RISC, ou calculateurs à jeu | 
d'instruction réduit, l’illustre bien. Un vertige à saisi les| 
designers quant À faire mieux (plus) que les 80386, 68030 et 
consort. Solution adoptée: 1) réduire le jeu d'instruction du| 
chip donc sa taille et sa complexité. 

2) conserver le genre Harvard: les| 
données et le code ont un accés séparé au processeur, Î 
3) utiliser cette place libre par | 
plusieurs jeux de registres, le changement de contexte reste 
interne au chip et l’on contourne ainsi le plus gros manque. 


| 
Un jeu d'instruction large ou réduit vous laisse aussi | 
démuni, en effet, quand vient l'horrible chose qu'est un | 
changement de tâche ou, pire, une interruption. Alors, tous 
ces beaux paramètres qui meublent les nombreux registres de | 
votre CPU, il vous faut les emballer et ranger dans un coin, | 
un peu comme s’il fallait totalement remeubler un appartement | 
pour changer d'activité. Changer de tâche c’est faire cette 
maneuvre pour le lendemain, répondre à une interruption c’est| 
le faire à 3 heures du matin sur alarme, I] vaut mieux être Î 
soi-même garde-meuble et déménageur: le 80386 prend cent coups 
d'horloge pour se retourner plus 4 par paramètre à sauver. | 


Les RISC ont choisi d’habiter un immeuble au lieu d’un | 
F10 avec piscine et tennis. En contrepartie une douzaine de | 
studios sont accessibles à l'habitant, qui passe par l’ascen- 
ceur de l’un à l'autre, chaque studio étant meublé pour une | 
tâche. Evitez seulement les applications à 13 tâches... 


On atteint tout de même de belles performances, mais à | 
quel prix ! Plus question de programmer en assembleur, seul 
un compilateur de luxe peut bâtir une application qui tienne | 
conpte du contexte de 192 registres utilisés simultanément. | 

| 
Ce n’est pas réellement un mal, car il fallait bien un jour | 
s'y résoudre, mais maintenant il n'y aura tout simplement pas 
à choisir, c'est fait... Adieu donc aux artistes, amoureux du| 
patch génial et du jump minimal; désormais un compilateur de 
20 Moctets veille sur vos oeuvres. 


| 
Quand il s’est agi de faire le NC4000, qui n'est pas | 
un RISC quoiqu’on en dise, la structure même du Forth a donné| 
une autre solution: tous ces ingénieux mécanismes s’envolent 
dans l’espace des RETURN. Le processeur évolue dans un espace} 
non plus linéaire comme la machine de Von Neuman, ni à deux | 
dimensions comme un Harvard, mais tridimensionnel. Changer de| 
contexte revient à pointer un autre plan, ce qui prend de un 
à 4 cycles au pire. Return prend 0 cycle. 


L'utilisation est encore plus simple qu'avec les micros 
ordinaires qui émulent le Forth, en particulier le noyau est 
trés petit puisque les 40 primitives sont des paires d'octets, 


| 
| 
| 
| 
| 


I1 y a donc quatre bus séparés alimentant ce chip. La 
mémoire principale, les piles paramètres et retour, et aussi | 
un port 1/0. Ce dernier pourrait faire partie de la mémoire, | 
mais il faut croire que les concepteurs n'étaient plus à une 
vingtaine de pins prés. 11 faut dire que tout ce trafic prend| 
beaucoup de place, donc malheureusement un boitier "fakir". | 


Voilà que maintenant il va nous parler du boitier, en 
entend-je soupirer quelques-uns. Et oui, il faut savoir que | 
cette puce, petite donc pas chère, demande un boitier de 144 
pattes, et qui coûte 1200 F. On reviendra sur ceci car c’ est| 
une première raison de l'échec (et oui) du NC4016. | 

Bref, il y a donc un port 1/0, mais quel port! le plus 
sioux qui soit. On peut lire, écrire, mémoriser en entrée ou | 
en sortie, quetter un niveau sur n'importe lequel des 16 bits| 
avec en plus contrôle de polarité et masquages, Si avec çà on 
n'entend pas "papa maman" en baissant l'oreille, c'est juste 
faute de l'avoir programmé. De fait en ambiance de contrôle | 
de process, le NC4016 jongle avec ses trois bus de données et| 
ne les ralentit pas du tout en besognant coté 1/0, oû il fait 
mieux de loin que n'importe quel autre microcontroleur. 


MACHINE DE PILE 

Si je traduis "stack machine" par machine à pile, vous 
penserez "chouette, en plus on peut l’emmener à la plage !". 

Circulez, çà n'a rien à voir. 

Les deux mémoires Return et Param sont des Ram tout ce | 
qu’il y a d'ordinaire, mais le fonctionnement préféré est de 
les utiliser comme des piles, ce qui est trivial en Forth. À 
cet effet les pointeurs d'adresses incrémentent/décrémentent 


tous seuils à l'aide d'additionneurs dédiés. Le générateur d' | 


adresse de la mémoire principale auto-incrémente aussi, mais 
c'est là tout à fait banal. 
En quoi réside l’intérêt d'une telle machine ? 

- les piles dégagent le processeur de toute la 
surcharge de gestion du contexte, lui laissant 
la partie noble de l'éxécutable, c'est à dire 
ces instructions qui vous intéressent. Mesurer 
la performance en MIPS (Millions d’Instr./S) a 


ï — en contrepartie le processeur devient trés 
gourmand en débit mémoire, car digérant vite i] 
revient à la charge dès le cycle suivant dans 
la plupart des cas. Quelle est la fonction qu 
mICrOprocesseur ? Bouffer du code. Celui-ci et 
| les RISC sont Capables de consommer tou 
des mémoires rapides peuvent fournir, 
— Comme on à trois accés simultanés 
effet sont généralement moins demande 
débit brut est amélioré d'autant. 
en partie le premier point. 


et plus. 
les 1/0 en 
urs), le 
Ceci recouvre 


| L'éxécution du Forth N’EST PAS un avantage du 
vue de la performance. Un code en C fera aussi bien 
| autant des piles. Tempérons tout de même un peu: il 
facile de faire du bon code "à pile" en Forth. Mais 
| voulez vendre un circuit, les utilisateurs voudront 
deux cas demandent une machine identique. 


point de 
s’il use 
sera plus 
Si vis 
du €, les 


Une remarque au sujet de la performance. 
| Rams rapides pour alimenter ce circuit, 

cher. Une carte Cpu coûte facilement une 
| qu'en composants si l’on installe 
Pas de panique! 

| nettement moins chère, 
| système restera tout de 

accés de 100 à 120 nS qu 
| de tailler sur mesure le 
qu'on en à toujours 


S'il faut des 
le système devient 
dizaine de KF rien 
quelques megamots de Ram. 
En prenant de la mémoire plus lente et 
On gagne trés vite sur les coûts, le 
même impressionant avec des temps d' 
i sont économiques. L'important est 
rapport prix/performance, sachant 
“sous le pied" pour faire mieux. 


Ecrire un noyau Focth 
| un portage du C un peu moins 
| dépendant, c’est à dire que 


pour le chip F32 doit être aisé, 
, mais C n'est pas machine- 
Son noyau matériel est minimai. 


l ENVIRONNEMENT HIERARCHISE 
PRIMITIVES ASSOCIFES 


la forêt ou l'arbre ? La 
pomme ou le pépin ? Ni l’un ni l’autre. C’est nous qui avons 
l'idée de complexité. Quand on S’occupe de la forêt le pépin 
ne compte pas. Les objets accessibles à nos manipulations ne 
sont pas emboités mais hiérarchisés. À chaque niveau de notre 
scrutation, l'objet a à peu prés la 
nous lui attribuons, 


Quel est le plus compliqué, 


et hiérarchisée sont deux modes 
primitif(rappelez-vous la peinture 
l'autre adapté à la dynamique du réel. 
,z sont divers objets comparables. à contient 
alors que ab est: aba,abb,abc.. 
: aba,abc(abca),abd, et la liste 
finit par zz22zy,2zz222z)))}}). 

L'objet Toto possède une adresse Ujyrdttrd] qui définit 


| 
| 
| 
| 
| 
| 
| 
] Les approches linéaire 
| 
| 
| 
| 
| 
| une profondeur de 8 par rapport au point d'entrée, 
| 
| 
| 
! 
| 
| 
| 
| 
| 
| 
| 
| 


de représentation, l’un 

avant la perspective), 
a,b,c,d... 

aa,ab,ac... et aa juste aaa, 
On écrit (a(aa(aaa),ab( 


successivement au travers du 10eme puis 25e, 18e, de, 20e, 
20e, 4eme élement rencontré à un niveau donné. 


La liste à plat ci-dessus, comme celles qu'utilise LISP 
doit donc être parcourue avec à la main le chemin spécifié,et 
on arrive au but. De quoi est-elle faite ? 

Le pire cas est que chaque élément soit lui-même étalé, 
toute la base de donnée doit être lue lettre par lettre. Plus 
souvent on a recourt à des indirections. La liste contient 
juste un pointeur sur l'objet recherché, et des séparateurs 
structurants. 


Les micros évoluent dans un espace linéaire d'adresses 
physiques. Dans les OS modernes et certaines applications de 
gestion de base de données, la machine logicielle évolue dans 
| cet espace virtuel hiérarchisé. Bien. 
| Reste plus qu'à donner l'adressage hiérarchisé au micro 
| et on pourra commencer à travailler sérieusement. Programmer 
| dans cet espace doit être transparent jusqu’au niveau le plus 
bas possible. 

**#X*XX*xDans ce type d'adressage, l'adresse absolue est cell: 
| du descripteur de chemin, le path. 
À [Toto] on trouve [Toto]j----> 10 ; 
25 
| 18 
4 
20 
20 
4 
puis un bouchon quelconque pour cesser de ramer. 


| 

Une fois cette liste empilée dans les paramètres, le y 
| part du début de la liste à plat, et avale son contenu qu'il 
filtre à grande vitesse. Quand on trouve ( le niveau courant 
NIV est incrémenté, contraire pour ) Quand NIV atteint 0 c’ 


| le path courant est comparé au path de consigne, Par exemple 


| en détail, il suffit de courir au prochain } de même niveau, 


et reprendre là. 
| 


particulier ceux du voisinage de la destination, la localité 

| l'application étant généralement réalisée. 

***#*#***X#Dans ce contexte, l'adressage relatif consiste en un 
déplacement à partir du point courant. 

| 


Le chip aura évidemment en mode natif un adressage 


alors un sens. 


CTEDS JU°8E. ur 1188 


t ce que| 


même complexité, celle que 


On y accède 


est qu'on a rencontré la fin de liste. Au cours de l'excursion 


si on est hors path aprés un ( pas la peine de traiter le flot 


Quelques pointeurs sont à stocker en cours de route, en 


direct, et c'est l’une des raisons principales à l'’utilfsatio 
ji de 32 bits. Seulement il faudrait que les primitives d’adres- 


! 
i 
' 
Î 
i 


| 
| 


! 


H 
{ 


n 


13 


sage virtuel décrit plus haut se trouve le plus "bas" possible 


l'idéal étant d'en cabler tout ou partie. 


Je considère la mise au point de cette fonctionnalité 
en virtuel sur Turbo-Forth comme essentielle pour F32. 
à suivre 


4 


JEU D'INSTRUCTION 
IMPLEMENTATION 


Supposons que nous ayons un Turbo-Forth muni de toutes 


subtilités pour manier des mots de taille quelconque. Dans un| 


dictionnaire F32 nous avons un noyau complet pour exécuter n’ 


importe quelle application. 
Supposons que Sam*jedi nous permette de travailler à 
plusieurs. Les taches à accomplir sont les suivantes. 


L'équipe langage vérifie la compatibilité du noyau F32 
en émulant avec les applications existantes de Turbo-Forth. 
Elle intègre par ailleurs les primitives spéciales F32. 


Les candidats à cette équipe sont encouragés à étendre 
leurs attributions. Une équipe commence à une personne. Une 
personne peut faire partie de deux équipes, de préférence 
adjacentes. (J'espère que les n équipes ne seront pas faites 
de mon unique personne). 


L'équipe noyau constitue un noyau(pardi!) qui soit: 
- minimal 
- à largeur de mot non fixée sur 16 bits 
- compatible Turbo-Forth: vérifié en émulant 
les applics existantes 
- avec l'équipe VLSI négocier les primitives à 
câbler ou non(simplicité, vitesse, etc) 
- à niveau de définition réglable: chaque 
rimitive aura un paramètre associé autorisant 
à l’éxécution soit: 
- simple fonctionnalité virtuelle 
- idem plus timings puce virtuelle 
- idem plus timings système virtuel 
- idem plus activation interne du chip 
Les candidats... 


L'équipe VLSI communique au noyau les fonctionnalités 


en service. Si on me dit: il faudrait un SWAP(possible...) je 


regarde tout de suite si N et T peuvent permuter. (sinon, on 
n'est pas dans la...}l Elle informe le noyau des détails de 
chaque primitive, en particulier des timings, pour permettre 
au langage de faire des simulations de temps réel. G. Dumur 
appréciera la puissance et la simplicité de ce simulateur. 


inscrivez vous en vitesse. 


Sale de a #97 2 


routines necessaires à son 


et contenant exclusivement Les 
fonctionnement. 

Le module MS qu etre commande 
tiabres a 3,70 Fr. 

Prix des modules M4tMS: 70,00 Fr, Pas de cheque en dessous 
de cette somme, SVP. Envayer votre commande au siège de 
l'association. 


SECRETAIRE Du 06.09.88 A 10h48 
QUI EST AU COURANT DE L'EXISTENCE D'UN PROGRAMME DE 
CONVERSION DES FICHIERS dBASE EN C..,? 
INFO: BASE IV pas dispo avant novô8. Passibilite reprise 
‘ ere, DOS III par LCE si achat avant fevêh pour moins 


F32 Ou 06.09.68 À 17h36 
LA REUNION F32 SE TIENDRA A PARIS LA DERNIERE SEMAINE DE 
SEPTEMBRE. 69204590 POUR NEGOCIER LE JOUR SI VOUS N'ETES 


a l'association contre 10 


RUES INSCRIT. F32 DEMARRE AVEC TROIS NIVEAUX 
- LANGAGE: 32 BITS POUR TURBO-FORTH/EXECUTION DES RPPLICS 


EXISTANTES AVEC LE NOYAU F32 ET CORRECTIONS/BENCHMARKS 
: NOYAU: DEFINITION/MINIMALISATION/COMPACTAGE 
OPCODES/TIMINGS 

- VLSI: INTEGRATION OÙ NOYAU/FEEDBACK VERS EQUIPE NOYAU 
IL Y ADE LA PLACE POUR TOUT LE MONDE VOIR PLUS DE DETAILS 
DANS JEDI PROCHAIN (Ndir: dans présent n°) 

INSCRIVEZ-VOUS DANS F32 

IE. CREER UN SOUS-FORUM F32 AVEC LE MOT DE PASSE DE 


DES 


FORTH-83 


FORGETTABLE 
INTERNAL NAMES 


MICHAEL HORE - NUMBULWAR, AUSTRALIA 
Mu 


FE. time to time, there have been 
various proposals for dealing with 
intermalz or local, names. By these, I 
mean the names of words that are only 
used internally in an application, never 
cailed from outside. A particularly nice 
scheme was presented by Dewey Val 
Schorre, back in Forth Dimensions [JS 
(“Structured Programming by Adding 
Modules to Forth”). Dewey brought the 
notion of a “module,” and presented three 
words (INTERNAL, EXTERNAL, and 
MODULE) to implement this notion. 
Each module is a self-contained unit, and 
communicates with the outside worid by 
means of words defined between EXTER- 
NAL and MODULE (as well as any 
constants or variables defined before 
INTERNAL). Words defined between 


INTERNAL and EXTERNAL may be 
referenced from within the module, but 
are not accessible from outside. Each 
module may be a compiete application or 
a building block in a larger application. 

Dewey’s implementation of these 
words was simple but effective, involving 
the replacement of a dictionary link to 
remove the internal words from the search 
chain. Dewey acknowledges that such a 
simple implementation does not allow 
the dictionary space savings that could be 
possible — the headers of the internal 
words are unused after MODULE has 
been reached, but remain in the 
dictionary. (Note that the parameter fields 
of these definitions are needed for 
execution, but not the headers.) 

Perhaps one reason why Dewey's 
words have not gained a wider acceptance 
is that, since his article, more elaborate 


vocabulary structures have evolved, and 
the effect of Dewey’s words can be 
obtained by using vocabularies in an 
appropriate way. I have always felt, 
though, that Dewey’s words state more 
clearly what is going on, since 
vocabularies have many other uses 
besides this particular one. 

At this point, Ï am not going to 
attempt a full justification of a modular 
style of programming, which is now 
accepted as an essential discipline in the 
construction of any significant ap- 
plication. Let me just say that I have 
found it very useful to have this 
discipline enforced (the temptation to 
lapse into spaghetti code is always there). 
If I try to call: an internal name from 
outside a module, it is good to have the 
systwm throw it back in my face. It 
means { probably have not understood 
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STRUCTURE DE UER ER ENREGISTREMENT 
€ 
INITIQLISATION D'IMPRIMANTE PAR MENU 


par Yves SURREL 


Diffusion: module M6 de TURBO-Forth et 
téléchargement 3615 SAMKJEDI 


Vaici deux courts programmes commentés traitant d'une 
structure de données extrêmement pratique, 
D'ENREGISTREMENT, Je sais qu'elle a déjà été implémentée 

en FORTH, mais permettez-moi néanmoins de vous soumettre ma 
version. Vous trouverez dans Le fichier RECORD.FTH toutes 
Les informations nécessaires. 


Le deuxième programme (fichier IMPRIM.FTH) est un exemple 
d'application: un programme de configuration rudimentaire 
FINIR le menu, On se déplace dans Le menu qi Les 
flèches verticales et Les touches HOME et END. La sélection 
d'une option 5e fait en DU sur La barre Hspice On 

sort en appuyant sur RETURN. Les attributs d'affichage sont 
prévus pour une vidéo couleur. Les modifier si nécessaire. 


Pour un résultat pal rejet 2 ATTR ! dans La boucle 
du mot TICTAC (fic 


1er TIME.FTH). 
Une remarque pour 


ceux qui doutent encore de L'intérèt 
d'avoir abandonné Les blocs: Re d'imaginer L'aspect du 
mot  CONFIGURE (dans  IMPRIM.FTH)  tronçonné en 
blocs...(IF...THEN imbriqué dans 00...L00P RE PÉRELE 
IF...ELSE...THEN imbriqué dans CASE...0F...ENOOF imbriqué 
dans BEGIN...UNTIL!). 


LISTING: RECORD. FTH 

ONLY FORTH DÉFINITIONS DECIMAL 

0 CONSTANT ‘TAB 1 Adresse début du tableau 

Q CONSTANT €ENR) | Longueur de L'enregistrement 


Q CONSTANT #ENR | Nb max d'enregistrements 
\ dans un tableau 


VARIABLE * \ Index variant de 0 à #ENR-1 

sT(n--)*tl; 

: us (S offset depuis debut enreg Cnom du champ} -- ) 
DES) (5 -- add ) | L'enreg. courant est pointé par “ 
@ 1 Offset depuis debut enregistrement 
* @ CENR) # + \ + La tongueur des enreg. 

\ précédents 
‘TAB + ; 1 + adresse début du tableau 


Le mot Suivant est assez complexe. La syntaxe 
d'utilisation par contre est simple: 
ENR: BONHOMME 15 NOM 15 PRENOM 2 AGE 16 IELEPHONE : 
où l'on définit LL BONHOMME comportant 
4 champs de longueurs 15, 15, 2, 16 respectivement. 
On définit donc 5 nouveaux mots en une Seule SELER 
Après compilation du nom du champ par Le mot CONSTANT, 
n lit le flot d'entrée en s'attendant à trouver 
alternivement Les longueurs des DS et Leurs noms. 
La fin est donnée par Le point-virgule qui est ici un 
séparateur et non un mot. 


: ENR: { mot de definition ) 
Q CONSTANT | Compilation nom de L'enreg. 
HERE 2- 0 (5 -- pfa 0 ) TEE 
\ On garde Le pfa sur :a pile pour l'initiatiser 
{une fois que La TE totale de L'enregistrement 
L sera calculée. 0 est La Longueur initiate. 
BEGIN (5 pfa Lgenr ) 

\ Lire Le flat d'entrée... 

SOURCE OROP DIN @ + CR 

L Prochain caractère à Lire 

ASCII ; = NOT (S pfa Lgenr ) 


L Fant que L'on n'a pas rencontré te 


ne rt mes ee bd 


WHILE 


| point-virguie..…. 


1... 0n Salsit La Longueur du prochain champ 


\ à compiler 

BL WORD NUMBER DROP (5 pfa igenr tgchamp ) 
SWAP (S pfa Lchamp Lgenr | 
1 La Longueur actuelle de L'enregistrement 
{est donc L'offset du prochain Champ par 

À ue au début de L'enregistrement. 

QUP CHAMP. (S pfa Leu {gear ) 

\ On compile Le nom du champ 

+ (S pfa ELLE } 


\ Nouvelle Congueur de l'enrec. 
REPEAT | 
SWRP ! | Le nom de L'enregistrement fournira 
Là L'éxécution sa Longueur 
\ On saute Le ; dans Le flot 


TOIN +! 


Remarque importante: il faut que La définition d'un 
enregistrement tienne sur une seule ligne! 


ane LES 


Le mot suivant permet de définir une structure 
de tableau d'enregistrements. 

FES 

27 BONHOMME TABLEAU BONSHOMMES | 

définit une zone mémoire de 27 enregistrements 
de structure BONHOMME 


: TABLEAU 
CREATE 2OUP . 
,. \ pfa contiendra La Longueur d'un enregistrement 
, \ pfa+2 Le nombre d'eareg. 
# ALLOT | pfaté --) données 
DES) (5 compil: -- pfa ; exec: -- ) 

\ L'éxécution du mot (par exemple BONSHOMMES) est 


{5 nb Lgenr -- ) 


| indispensable pou initialiser Les constantes <ENR), 


VAENR, ‘TAB et La variable 

\ Ceci est équivalent à L'utilisation de WITH 

\ en PASCAL). 

DUP @ IS <ENR) {5 pfa ) 

DUP 2+ @ IS #ENR (5 pfa ) 
TAB {5 -- ) 


4 + IS! 
Q "! ; 
ur {S -- ) | Pointe sur CN EEE RRRRERS 
à suivant si passible. 
“ @ 1+ #ENR 1- MIN "! : 
nee (So) \ Pointe sur L'enregistrement 
\ précédent 51 possible. 
" @ 1- 0 MAX ‘! ; 
\ Exemple: 


1 10 *! pointe sur Le ftème enregistrement (n° 10) 
Le Laisse l'adresse des données correspondantes 


Fichier: IMPRIM.FTH 


ONLY FORTH DÉFINITIONS DECIMAL 
INCLUDE RECORD.FTH 


INCLUDE TIME.FTH ( diffusé dans module M3 de TUREO-FORTH) 


Uou téléchargement 3615 SAM#JEDI 
À Définition de L'enregistrement. POSITION contient 
Ule n° de cellule écran (Lignet80 + colonne) où 
{ sera affiché La chaîne de Caractères CHAINE. 
L CODES contient Les octets à envayer à l'imprimante. 
ENR: CONFIGURATION 2 POSITION 25 CHAINE 5 CODES : 
25 CONFIGURATION TABLERU CONFIGURATIONS 
\'Initialisation du tableau CONFIGURATIONS 
: PEER Ucol Lig add Len ct c2 c3 cé c5 -- ) 


D0 
CODES I + C1 -1 


+ 
CHAINE PLACE 60 # + POSITION ! à ; 


4 


=1]45 
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CONF IGURATIONS 


104" Di IENION 21 64 255 255 255 INIT-ENR 
40 5 * Min QUI" 27 ï ee 255 255 INIT-ENR 
505" NON" 21 a0 255 255 255 NT : 
19 6" Itali sue QUI" 27 oi) 9 27 52 INIT-ENR 
50 & * NON° 27 53 27 109 2 te ENR 
10 7 “ Souli SL fé: QUI" 27 1255 255 INIT-ENR 
59 7 " NON" 27 45 0 255 255 rent 
10 8 “ Double HEÉ QUI" 14 259 si 255 255 INIT-ENR 
50 8 " NON" 20 255 255 255 255 INIT-ENR 
10 9 * Condensé: Qui" 15 255 255 255 255 INIT-ENR 
50 9 “ NON" 7 255 255 255 255 PE NR 
19 10 " Qualité courrier: QUI" ss 4 255 255 INIT-ENR 
59 10 “ NON" 27 120 0 255 255 mire ENR 
10 11 " Double frappe: QUI" 27 a 0 255 255 INIT-ENR 
59 11 ‘ NON" 27 72 265 255 255 INIT-E 
1012" Proportionnel : QUI" 27 is 4 255 255 INIT-EN 
50 12 " Lu 21 112 0 255 2 DES 
10 13 * 6ra QUI" 27 + ai 255 255 INIT-ENR 
50 13" NON "27 70 255 255 255 INIT- 
10 14 " Petit interligne: OUI" 27 A 25 255 255 INIT-ENR 
50 14 " NON" 27 1 255 255 255 INIT-ENR 
10 15 " Table EPSON" 27 109 0 255 255 INIT-ENR 
10 16 " Table IBM" 27 109 2 255 255 INIT-ENR 
10 17 * Marge à gauche" 27 108 20 255 255 INIT- ENR 

19 " Chaîne de caractères" 255 255 255 255 255 INIT-ENR 


10 
FORGET INIT-ENR 


\ Affichage de La chaine de caractères CHAINE 
\ à La position POSITION 


1 ITEN (S att -- 
ATTR ! CHAINE CounT POSITION @ S)SCREEN ; 


… SELECTED (5 -- ) 1 Affichage jaune sur bleu, intense 
30 .ITEM ; 


: UNSELECTED (S -- ) 1 Affichage cyan 
3 .ITE 


. 
! 


\ Mot utilisateur. On utilise te L'affichage Le 
| mot (SEREEN défini dans TIMÉ.FTH pour des raisons de 
rapidi 


: CONFIGURE (5 -- ] 
NRA de (a page-6cran 
" Selection: (ESPACE) --- Quitter: (RETURN) " 
1938 S)SCREEN 
CONFIGURATIONS 


30 ATTR | 
* CONFIGURATION IMPRIMANTE" 25 S)SCREEN 
SELECTED 
FENR ! 
*} UNSELECTED 
LOUP CR 


4 Boucle d'attente 


BEGIN | 
Ari \ Drapeau de sortie par défaut 


CAGE 
@0F À Appui d'une touche de fonction 
EU \ 2ème code envoyé 


72 OF UNSELECTED € SELECTED 


00F \ FL. haut 


EN 
80 0F UNSELECTED ") SELECTED 


D0F \ Fi. bas 


EN 
A QF Le g *! SELECTED 


ENDOF | 


ENOCASE 
OF 


Ê FA (5 false } NOT ENDOF 
ui de RETURN) =) sortie 


ni 
\ Appui ESPACE) => sélection 
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\ "Activation" du tableau. 


ENDCAGE 
UNTIL ATTOFF DARK ; 
\ Compiter Les ea suivantes pour faire un fichier 
\ exécutable appe 


: € MULTI TICTAC WAKE CONFIGURE BYE ; 
* C IS BOOT 

SAVE-SYSTEM 1.C0M 

EOF 


Suite ele 


79 0F ONSELELTED fENR 1- *! SELECTED 
ENDOF | End 


" @ #ENR !- = 
1\Sic est Le dernier choix. 
IF ( envoi chaine de caractères) 
Q 20 AT ATTOFF 
PRINTING ON PAD 255 EXPECT CR 
PRINTING OFF 
0 20 AT 80 SPACES 
ELSE \ sinon envoyer Les codes 
5 \ de contrôle 
00 CODES 1 + C@ OUP 255 = 
IF OROP LEAVE 
; THEN (PRINT) 


THEN 
ENOOF 


{ts supprimer E0F...5i:) 


é I.COM 


either the problem or my “solution” to it! 
It also means that if I want to change the 
specification of an internal word, I know I 

don't have to look very far to find all the 
references to it. 

Let us now turn to the question of the 
potential space savings. Note that we are 
not realizing this with modules im- 
plemented by means of vocabularies, any 
more than we couid with Dewey’s 
implementation of his words. That is the 
reason for the code presented here. I have 
found that space savings on the order of 
20% is possible — the shorter the 
definitions, the greater the savings. This 
means that good Forth programmers will 
benefit more from this code than bad ones 
(bad programmers, please stop reading). 
This code will do even more — it will 
allow a whole module, parameter fields 
and all, to be loaded temporarily and then 
dismissed from memory, while leaving 
subsequent definitions intact. It is very 
useful to be able to do this with an 
assembler, as one obvious example. 

Ît turns out that Dewey's three words 
are more suitable here than if we tried to 
do the job with vocabularies. That would 
not be impossible, just more difficult. 
Moreover, Dewey’s words are very clear 
and say exactly what they mean — 
unlike, say, FORGET-VOC, Perhaps 
they may find a new lease on life with 
this implementation. 

Working in this area inevitably brings 
us to various implementation dependen- 
cies, since the Forth standard quite rightly 

leaves unspecified such details as the 
internal structure of the dictionary. So 
what we will do is focus on one specific 


Safe 2€ 


La cospilation en FORTH standard de tout programe 
se fait à partir d'un source en code ASCIL Trois 
inconvénients sont évidente: 


- le tenps de coapilation est iaportant puisque le 
coanilateur doit traduire L'ASCII en code exécutable avant 
de le placer en aégoire: 


- la taille du source ect ieportante (UTILITY,BLK 
sccupe [12k sur le disque}: 


- il est difficile dans ces conditions de séparer 
du noyau ec utilitaires, pourtant devenus inutiles après 
aice au point et coscilation. 


Une solution consode ect de sauvegarder sur disque 
le code coapilé, par exeanie la fraction de dictionnaire 
correspondant au débogueur, pt de le recharger directegent 
lorsque le becoin en ceurvient, Si la preaière partie est 
facile {SAVE ne fait pas autre chosei, la seconde est plus 
délicate: coment rétablir les liens avec le dictionnaire 
existant? Une solution ect proposée dance cet article, avec 
des exeaples d'application, 

Le programme ect constitué en toute logique des 
deux parties ‘sauvegarde’ et ‘rechargesent”, ceci afin de 
pergettre la cauvegarde de GAVRIN sous forse binaire. 


Voyons d'abord la sauvegarde, qui conditionne le 
reste, 


SAVEIN : écrans 17 à 270. 


Le fichier binaire sera rechargé en un eapl sceaent 
séaoire différent de celui qu'il occupait à la sauvpgarde, 
De ose est probablesent différente la structure du 
dictionnaire 4 ce goment. Il faut donc: 


- Conserver l'adresse de conpilation d'origine, 
pour la coaparer à l'adresse actuelle de rechargement: la 
différence £Sera ajoutée aux adresses sodifiées, et 
seulenent à celles-ci celles des acts antérieurs au 
segapnt sauvegardé sont évidesnent inchangéesi: 


- Sauver aussi les liens avec Le dictionnaire: ceux 
le liant au début et ceux le liant à la fin du segment. 


Buelles adresses Oceront à Orecalculer? Tout 
sisplesent, celles qui sont ecdifiées selon l'eaplacesent 
séacire du prograage. Faisons donc DEUX coapilations 
successives, et regardons ce qui à changé: tout octet 
aodifié entre Les deux versions appartient en principe à 
ung adresse qui devra Être recalculée, Une table ect 
construite, TAR RIT, qui contient ces inforgations: chaque 
octet du programne ect représenté par un bit de la table, 
ce bit gect sis à { lorsque les deuy octets correcpondants 
des deux versions cogpilées sont différents. La table ect 
ainsi 8 fois olus petite que le programme sauvegarde. 


Il faut aussi sauver les 8 liens avec le 
dictionnaire {2 pour chague ‘brin’ d'un vocabulaire: un en 
“haut” du segaent, l’autre en ‘hac'}, En fait, 0h sauve 
l'écart entre Les LFh's et le début du prograsse, Ceci se 
fait en deu: phases: les liens ‘supérieurs (ceux par 
lesquels cosmence toute recherche dans le vocabulaire) 


FICHIERS RINAIRES POUR F8x. | 


sont contenue dans CONTENT, donc directement âccessibles. 


Pour détersiner les liens ‘inférieurs gui lient 
le programme au reste du dictionnaire), on suit lec brins 
un par un depuis le ‘haut’ du segsent jusqu'à une limite 
inférieure, gui est fournie par le LFA du preñier act 
sauvegardé, début de la seconde vercion compilée, 


Hne reste plus qu'à placer tout cela dane ure 
zone ‘paramètres’, située juste au-deseuc de ja table 
précédente, puis à écrire sur disque l'encegble “version? 
+ table + paragbtres" , 


SRIN (écran 420) fait tout cela il exige deu 
paranètres, le no® du presier ant du grogranae et le nom 
du fichier binaire qui sera écrit: 


SRIN ler ect} énoa fichier: 


Notons que Le ler ent; doit &être connu ou 
déterainé par le prograsseur, Il sera d'autre part utilicé 
pour “effacer” le progragse devenu inutile. Ce preaier got 
doit donc Être ‘regarquable’ et facilement méacrisé, Vover 
par exeaple l'écran #12, où le progrange SAVRIN ect 
‘aarqué" par Le mot : #GAVRINE : défini en tout début, pt 


suivi du ‘act d'effacenent” SAVEND, Les écrane 49 et 16 
donnent des pyeagier de mots d'appel de prooranmes 
binaires, 


Une extencion 
noa du fichier créé, 

SBIN coanence par comgiler une prenière vercion du 
fichier OUVERT à ce soment: donc faire grécéder 
IMPERATIVEMENT toute l'opération par 


OPEN <erc pos à compiler} 


-BIN ect autonatiquenent ajoutée au 


Pour simplifier, on suppose ici Que Ce programne 
est écrit en syntaye FES rigoureuse, c'est à dire sou 
forae d'écrans-blocs, et que l'écran #{ ect un écran de 
Chargement, Un siaple ‘OK* (cf, LOC, #7} fait alors tout 
le travail. Les inconditionnels de TURRQ-FORTH devront 
modifier cela ,.. 


LOC en profite pour calculer lee CFA du éier got} 
dans les deux versions, leur différence donne La tailio du 
prograsne, guis il calcule les ‘affcete' dec LFA 
inférieure {leur distance par rapport à la hace}, 


Resarquez là troisièae condition ARQNT dans LOC: 
lorsque la longueur du programme ect aultipie de 2546 (108 
bexa) l'octet bas des adreccec dane les deux vercions ect 
le sêge, leur ‘inage’ dans TAR RIT cera à @, et RELOC de 
LOBRIH (cf infrai gndifiera Ja partie haute de l'adresce 
ses RE l'octet qui suit, C'est le crash, Bjoutons donc un 
NOOP ou un { ALLOT au programme source. 


SKIN quvre ensuite un fichier binaire eur disque, 
calcule la longueur du prograsee, construit TÔR BIT cé, 
#IG et la zone narasètrec I818), enfin écrit je tout, 
depuis le début de la vercion 2 {le chaen VIEH du presier 
act} sur le disque, ferme le fichier, et vous annonce 
qu'il à terginé, 
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18 


LODBIN : écrans 2 à 8. 


SAVRIN utilisant certaines variables de LODRIN, ce 
dernier doit Btre compilé en premier. 

LRIN técran 48) desande un seul paranètre: le noe 
du fichier binaire à charger, sans extension: un nos de 
lecteur et un chenin d'accès peuvent Être donnés, ceci est 
D0S-standard, 

Ce fichier est chargé en HERE actuel) par (LRIN), 
qui vérifie sa validité siaplesent en cogparant l'adresse 
sauvegardée de TAR RIT avec celle actuellesent en aégoire, 
Gi vous avez sodifié votre noyau dans l'intervalle, votre 
fichier sera rejeté coase non valable ... 

Puis (LRINI {écran #6} va chercher les paragètres 
ainsi chargés et Les utilise pour ‘reloger* les adresses, 
après avoir déplacé DP, et rétablir les liens avec le 
dictionnaire. 

Quelques orécisions sur Les acts MASK et RIT 19 de 
L'écran 2. NASK est un tableau contenant les nombres hexs 
at, 02, 04, .., 60: il permet d'exaainer le bit @, !, à, 
… à d'ur octet, RIT 17 l'utilise pour espiler un drapeau 
vrai si ce bit est à 1. Notez le code directement entré 74 
C, à C, correspondant à JE + et qui évite de créer une 
étiquette, 


Comparaisons : | 
Elles cont faites sur le aÊne progragme: 


= le cource DECOMP.RLE occupe 27648 octets sur le disque 
et se conpile en 26 secondes; 


- DECONPIL.RIN : 5249 octets, 4 secondes; 


- pour TURRO-FORTH, DECONP.FTH occupe 12017 octets et se 
cospile en 45 secondes (ECHO OFF, sinon Î sin 28 sec}, 
sans parler du teaps passé à adapter le programe ... 


Les coasentaires sont superflus, 


Utilisation. 


Les écrans 9 et 18 contiennent deux 
d'appel direct d’un fichier binaire, 


Le prenier a été obtenu à partir d’un décospilateur 
{une version élahorée de celui intégré dans FO), Avant de 
le sauvegarder, +DECOMP* et DECOMPEND ont été ajoutés en 
tête du source, respectivenent aarque et effacesent du 
segaent de dictionnaire contenant Îe progranse. Ces auts 
sont une facilité, et non une obligation: le prograsne 
fonctionne sans eux. Ce source ne nécessitait aucune autre 
aodification, sais ce n'est pas toujours le cas, voir glus 
loin, 


exesples 


Ensuite 
GPEN DECONE SAYBIN «DECONP+ DECOMPIL 
ont ouvert, chargé et sauvé Le décoapilateur. 
Pour voir si ‘cels marche’, faire 
DECOMPEND 2 TIMES 


{pour effacer les deux versions) puis 


GECOHPILATEUR <Enteri : le voilà prêt à 


l'esploi. 


À Ja fin, DECOMPEND euffit pour 
dictionnaire lavec tout ce qui le suit ...), 


Le second eveaple permet la conversion de SAVEIH: 
en effet, LODRIN doit évidengent Être présent dans Îe 
noyau Forth, mais GAVRIN n'a aucune raicon d'Étre là en 
Beraanpnce. 


SAURIN a nécessité une adaptation, avant 5 
conversion en fichier binaire. Dans l'écran #12, la marque 
KSAVEINE et ‘l'effaceur’ ont été ajoutés. Notons que les 
définitions sont placées dans le vocabulaire 006, ce qui 
ne pose pas de problèse particulier gour Le rechargement, 
Mais si le programme crée un vocabulaire, celui-ci sera 
bien rechargé, gais son nos n'apparaîtra pas dans VOCS, 
bien qu'il soit présent dans le dictionnaire, et ses liens 
avec les autres vocabulairec risquent d'être perturbée, 
Attention donc: il est peut-être préférable de tout mettre 
dans le vocabulaire principal, qui est bien la place d'un 
programme éphénère. 


Un autre point fait toucher du doigt les subtilités 
de La conversion binaire: dans Le act 244N lécran #43), je 
code (PUSH doit Btre renplacé par eon expression complète, 
En effet, ce code ASSEMRLER enpile Le contenu du registre 
AX puis effectue un saut RELATIF à La routine NEÏT 
d'exécution du mot suivant, Ur cette valeur ect bhien 
différente pour Les deux versions comgilées, gt RELQE la 
considérera coaue une adresse ARGOLLE, à laquelle il 
ajoutera le décalage du prograame: gais NET n'a gpac 
changé d'adresse, alors le eystèse 5e plante ... Le plus 
siaple est ici de ‘recopier* la routine NET, on y per 
seulement quelques octets, 


près  SBIN #GAVBINX SAVRIN, on obtient un fichier 
binaire SAVRINRIN eur le disque, pt à versions dance Le 
dictionnaire, qu'il faut élininer par SAVEND 3 TINES avant 
de Le recharger par GAVRIN, tout siapiement, 

Deux pointe iaportants restent à vérifier: es 
“phrases” evécutables du prograage source, et les 
vecterications, Pour les premières, un chargement Ginaire 
ne pourra pas en général les exécuter, sauf si glles 
portent sur le prograane lui-nêre (par exemple une 
initialication de variables ‘incales’}, Les secondes 
ocsent un oroblème identique. Une solution consistent à 
placer ces initialisations et vectorisations dans le 
dernier act du programae, puis à créer un got d'apcel 
conne celui de l'exeaple de l'écran #7, lequel justeaent 
exécute le dernier mot cogpilé du progragne. 


Une utilisation générale et tout à fait rationnelle 
de ce prograsme serait la reconstruction du noyau F3, 
dans lequel débogueur, éditeur, assegbieur Et 
décompilateur eeraient enlevés et placés dans une 
bibliothèque ‘binaire’. 

JEDI proposera-t-il 
téléchargement? 


l'ôter du 


cette nouvelle version en 


à. daccomard, duillet 86, 


{488 
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écran #û. 
ÉEREEEE LODRIN RHEEEE 


Ce proorsase peraet le chargement d'un fichier binaire, qui 
aura été préalablesent construit et écrit sur disque 1à partir 
d'un fichier source .RLK), À l'aide du progranse SAVRIH, 

Son chargement se fait par 
LEIN énos} 
l'estension .BIN ect rajoutée par le progragse. 
8 ce place à partir de HERE, les liens avec le vocabulaire 
9 étant recréés, 
18 Il est ainsi possible de construire puis recharger des pro- 
11 gramaes ASSEMRLEUR, EDITEUR, DEROGUEUR, DECONPILATEUR, ..., en 
12 libérant Le novau de fonctions utilisées uniquement en compila 
15 tion où sise au point, mais inutiles lors de l'esécution, 
14 


15 


DA bi ve fr 


ed De OM ds 


écran #i, 


® à LOBRIN : chargenent, Q2lui88Jal 
i 
2 GHLY FORTH ALSO 006 ALSO DEFINITIONS 


A 


2 


2 18 THEU 


CR CF BRILL 

1 LOBRIN est chargé. Pour l'utiliser, faire:) CR CR 
-{ LRIN énos fichi à CR CR 

.| l'extension .BIN est imglicite.) 

16 CA CR NORN 

fi 

{2 ONLY FORTH ALSO DÉFINITIONS 

15 

14 


15 


D it ON D 


De] 


écran ÿ2, 


8 ÿ LGBRIN : MASK, RIT (7 
HEX 
CREATE HASK 201 , 904 , 2010 , 98 , | oct, @1, 82, .., 60, 


Euiggjan 


OC My ve 


COGE SIT 19 (6 offset ,adr déb -- f : vrai ci bit={ ] 


S BY POP CX FOP CY AÏ MOV AY SHR AY SHR AY SHR AX EX ADN 
5  BCRES AL MOV 7 # CX AND MAGK 4 AY NOV CY EX ADD 

7 AH AN SUR & CRYI AL AND 74 C, 3 C, -1 #4 4X MOY 1PUGH C: 

8 GECIHAL 

3 

& VARIABLE TAR RIT \ adr table de conversion d'adrecces, 
S VARIABLE DECAL Ÿ contient le décalage, 

9 


F 45 HASK mseque Le bit @, 1, 2, ... , 7 d'un octet. 

3 RIT 17 teste un bit dans une table, et sepile un drapeau vrai 
Be’; ct à 

s s'il gst à Î, 


Écran #5, 


\ LODRIN : ouvre et lit un fichier eur disque,  OZluifilsn 
: OPEN-HIN ÎS adr fch -- ) 
CR BRL ." Un instant ,., CR 
BUF 15 RDS \ ouverture du fichier eur disque 
GOS-ERR? ARORT' Fichier BIN non trouvé,"  NORM 
DUP 6 + 8 SAP 14 +1 Ÿ place ler enr. de FCR 


5 READ-RIN 
BUP 26 EDGS DROP 
OVER 16 + € DuP \ lgr du fichier 
SPE SHAP — 108 - HERE Le \ assez de place? 
CR INV ARDRT* Mémoire disponible incufficante." NOFK 
+ 128 - SWAP 28 RDOS DROP : | lecture séguentielle 


ÎS fcb,ad dest -- ad pars) 
\ place la DTA en ad dect 


écran #4 


\ LODRIN : FICH)FCR, RELOC, Q2Jui 8Bjal 
: FICHIER (5 — 
BL WORD COUNT 

FCRI (FER) 
"IN" 


Ÿ fit ur nos de fichier, 
Vet le place dans le FCR. 
FCRI 9 «4 GhAP CHIVE : 


: RELOC {8 adr bace,lgr -- adr base ) 
6 D \ pour chaque octet du fichier 
1 TAR IT 6 RIT 1? 
IF Bu T4 DETAL &  \ vrai = aûr, aodifige, 
SHAF +1 2 À le décalage y ect ajouté, 
ELSE L[ THEN \ faus = actet euivant 
+LQ0P 


NS RELOC rétablit les adreccec du prograage binaire, 
écran #5. 


ÿ LODRIN : FARMS, RELINE. Blu gta 
: PARHS {5 base,adgargs -- adparas base lgr } 
IOUP € + { basetigr } TAR AIT ( : début de !3 table 
2OUF 24 & - { décalane à DECAL ! 
DUP & SHAP -ROT : À place ? val, en rone paranbires, 
3 RELINE {6 adoarac,bace -— j | rétablit liene avec dict. 
SHAP 4 + i adnare Lfa à #THREADS @ D0 
2DUP \ pointe un éLfa en zone parag.; El Ÿ, suivant, 
DZ +8 { Slfa) PDUP IF + { éléatbacezlta | 
CURRENT @ I 26 + {brin i 
GUF # -ROT ! \ place nouvel LFA de CONTENT, 
OVER  STHREADS 2x & 1 26 + 8 9QUP ( SLfa inf | 
JF X PICEÉ # \ solace l'ancien LFA de le cegment 
ELSE DAOP THEN \ conditionnelle ‘Lfa eup’. 
ELRE OROP THEN Ÿ conditionnelle ‘Lfa ini’, 
LÜOP 2DR0F 
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écran #6. 

à à LODRIN : VALIDET, iLHIHi. G2Juiggjal 
! 

2 à VALIDE? (S adparas -- } \ fich, convert: par SAVRIN ? 

3 2646 C'3 TAB HIT à: 

3 IF C8 ARILL ," Mauvais fichier d'overiav: * 

5  FCRI .FILE NORN CR CR ARORT THEN ; 

& 

3 5 {LRIN) {S adr,fch -- } 

8 DUF OPEN-RIN \ ouvre le fichier en lecture 

9 OVER READ-RIN à lit le fichier, le place en ‘adr° 
1à ODUP VALIBE? \ ‘overlay' OK? 

il  PARNS \ paramètres de chargegent 

i2 DUP ALLOT \ déplace le pointeur de dictionnaire 
F3  RELOC \ calcule les nouvelles adresses 

14 RELINE ; \ et Les nouveaux liens, 

15 
écran #7. 


à à LOBRIN : l'LAINI, Q2Jui89Jal 

1 

23 U'LRIN)  ($ adr-chaine -- | 

3 FOR DUP R/FCR ERASE + SUAP CMOVE À de fichier valide, 

à CHERE FCRI ILRIN) ; 

5 \ La chaîne doit contenir un nos de fichier binaire, 

& \6 

7 {'LAIN) peraet de créer des aots d'appel de progragges binaires. 
8 


9 Eveaple : appel et exécution d’un éditeur 


18 


{is EDIT £ 006 3 " EDITEUR BIN* 


{'LATN) 


12 CONTENT & HERE ATHREADS 25 CHOVE 
13 HERE ATHREADS LARGEST LINK} EXECUTE : 
14 
15 Voir aussi écrans #9 et 19, 
écran #8, 
@ : LGDRIN : LRIN. g2Jui89Ja) 
{ 
2 FORTH DÉFINITIONS 
« 
4 : LRIN À LIN énoa fichier { extension .RIN igplicite j 
5 {HS) 
& FCRI R/FCR ERASE 
3 FICHSFCR 
ÿ  HERE FCBI {LBIN) 
g FCRI CR CA GRILL FILE ." chargé." HORN CR CK 
ig [I FORIH j; 
{il 
12 
13 
14 
15 
20 D N°46. Jum (19788 


écran #9, 


À Exeagle: DECONPILATEUR. Gui GRdai 
: DECOMPILATEUR un fich, binaire DECOMPIL.RIN à Bté crée, 
{ DOS J " DECOMPILRIN® ('LRIN) 
CR CR ARILL ," Le déconnilateur ect chargé: " CR CH 
." Utilisation! * C8 
vu { - pour déconpiler un seul gut :° CR 
4 VOIR caoti ou VW éaot" CK 
à 2 - pour déconpiler un groupe de aote :" CR 
zh .HOTS" C8 
. 3 - pour les isorimer :" CR 
n PR-HQTS " CK CR 


." Pour faire un fichier des aots du vocabulaire CONTEÏT:" 
CR CR ." SAUVE Cd:lénem fich.esti 

CR CR ." Pour euporiaer le vocabulaire DECOMP, faire :° 
CR DECOMPEND éEnter }" 

CR NORM ; 


écran #18. 


\ Exesnle: SAVRIN @iluiskJal 


à SAVRIN un fich. binaire SAVRIN.RIN existe sur disque. 
{ 006 3 “ GAVRIN RIX " {"LRIN) 
CR BRILL ,"  SAVRIN est chargé." 
CR CR " Pour l'utiliser, ouvrir le fichier-csource: 
CR CR Fe OPEN énçe fich-erc.RLK: 
CR CR ." puis faire! 
CR CR SRIN <narques énom fich-bini" 
CR CR ." marque) étant Le orenier eut du programne," 
CR ." suivi du nca du fichier binaire sans extension." 
CR CR." Ce fichier sera créé sur Le lecteur ‘défaut’," 


CR ." sauf spécification contraire dans le noa du fichier,° 
CR ," avec une extension .RIN." 

CR CR ." Pour supprimer SAVRIN, faire GAVEND éEnter;" 

CR CR NORN 


écran #11. 


ttért CAVRIN ŒE#HE 

Ce pragraase permet la construction et la sauveoarde eur 
disque d'un fichier binaire, c-à-d directenent chargeabie 
dans le dictionnaire FGRTH, 

H utilise un fichier source écrit selon la syntase Forth, 
le compile 2 fois dans le dictionnaire, sauve l'une des 
versions avec Les paramètres nécessaires au rechargement, 

Celui-ci est effectué oar le grograane LODRIN. 

Le source utilisé doit Btre adapté à cette utilisation: 

- le prenier ent doit étre connu de l'utilisateur, ce peut 
être un ont de marquage MARK not) qu un act ‘vide’: 

- seules les définitions sont transférées à partir d'un 
fichier binaires les acte exécutables du source ne seront 
pas interprètée lors du transfert ivectorications p. ev.} 

- cette version supouse que l'écran #i du fichier spurce 
est un écran de chargement (utilication du act QK dans LAC). 


écran #12, 


8 


; SAVRIN: chargesent, Gui 88Jal 


À ONLY FORTH ALSQ DEFINITIONS 

Et #SAVBINE :  sarque pour la version binaire. 

5 SAVEND C°3 #SAVRINE VIEN (FORGET! : | pour l'effacer. 
3 DGS ALSG DEFINITIONS 

5  ! 9 +THAU 

$ ONLY FORTH ALSO DÉFINITIONS 

TS  CRCR BRILL À texte à placer dans le ant d'appel 
S .{ SAVRIN est chargé.) CR CR 

9 .! Sour l'utiliser, ouvrir le fichier-sources) CR CR 
ig ,f OPEN nom fich-erc.BLK } CR CR 
Îf .{ puis faire:) CR CR 
12 .1 SRIN éaarqueiï énoe fichi ) CR CR 
ÎS .{ où ‘aarquei cera le presier not sauvegardé,) CAR 
14 .{ énes_fich} sera Le non du fichier binaire créé, avec 
15 extension .EIN,i CR CR NORN 


écran #13. 


8 \ SAVRIN : table, RATRERET 
L COUE 24E6N {Sn -- 2 puissance ni) 
2 CY POP {4 8K MOV AX CL SHL \ IPUSH C: renplacé par : 
3 Ai PUSH BY LODS AX RÉ MOV @ CBX3 JMP C: 
à : SIT COMPL {5 offset -— j \ cosplésente un bit, 
5 9 MOD ÏR 254 fi calcule l'adr de l'octet, 
6 FAR RIT & + CTOGGLE : Vet aet à ! le ‘r'iège bit. 
7 5 LGR TAR {8 lor -- taille j 8 / [+ 
8: TAILLE MAY (8 Ir -- Igr-tot : de l'ivage créée j 
7 QUP LGR TAR + B/REC 2DUP HOD - + ; 
ig : CLARA TAR {S adr,igr -- i 
Î5  SHAP TAR RIT ! LGR TAR B/REC + TAR RIT & SAP ERASE ; 
3: CONST TAR {5 basezadr début,lgr -- } 
IS O2PUF Ze OVER CLR TAR 
15 ZOUF + SHAP @ DO O2DUP L+C4 GAP I 4 Cë 
ro ÎF [RIT CGMPL THEN LOOP 2OROP ; 
écran #ii 


8% SAURIN : borne inférieure de sauvegarde, 


EU Os LA ro 


ms re 


mu 
DAT de ed hi me #S) CI LC 


den Lee dus pee peu 


Folui88jat 
VARIABLE TAMP SG ALLOT TAMP 32 ERASE 
? SAV CONT CONTENT @ TAMP 4THREADS 24 CMOVE : 
\ sauvegarde CONTEXT de TAMP, adr des LFA supérieurs, 
: ORNE LFA {SG cfa-inf --- 
SAV CONT  GLIME 
BEGIN 
TSHP STHREADS LARGEST  DUP 
BHILE 
8 SAP 
REPEAT 2DROP DROP : 


3 PICE Us 


48 SORNE LFS utilise les 4 LEA contenus dans CONTENT (ie. les 
adr susérieures dec 4 brine du vocabulaire) pour chercher les 
4 LEA inférieurs du segsent de dictionnaire À sauvegarder, 

81 le segaent n'en contient pas, TANE ect inchangé, 


\ le LFA le plus bas est une borne. 


écran #15, 


À SAVRTH : recherche des liens inférieure. Bidui88ian 
5 LIENS INF (6 cfa-iné ji \ calcule les à LEA inférieurs, 
RORNE LFA 


TARP STHRERDS @ DO G PRIOR ! \ drapeau. 
QUP 1 24 + DUP & { tanp@ taapl tanpi Lfa-Ti } 
CONTENT & I 2448 { Lfa-i ) 
BEGIN 
2QUF LK \Lfa-Ti « Lfa-i ? 


HHILE oui: Lfa suivant du brin i, 

DUP FRIOR ! @ Ÿ PRIOR conserve LFA orécédent 
REPEAT \ non: on efface, ie précédent ect 
20ROP PRIOR 6 GWAP ! \ placé dans TAMP, un € sinon. 

LOGP DROP : 


\S Un 8 dans TAMP indique que Le brin concerné n'a pas de re 
grésentant dans le seonent de vocabulaire à Euvegarder, 


écran #16, 


Glluigtial 


SAVRIN : sauvegarde des liens, 
& 18 céa inf,adr sav,lfa eup —— adr savt{2 : 


AV_LFA 
STHREANS 8 DO { adparat,lfa up) \ les lienc 
2DUP CONTENT 8 | 2e +8 Lfa ji, izg-3i 


à 
, 
: 


SAP - { Léa i-Lfa cup } 
DUP @6 IF DROP @ THEN \ place un @ dans TAMP ci 4 
SHAF [2e + { SLfa,adpara i } 


LOOP SAP STHREADS 24 « 
SHAP DECAL 6 - 


2DUP + OVER ERASE + 
Y calcul du Léa inférieur. 
TANP  HTHREADS 8 DO { ad-5av,lfa inf, Tamp | 
SUP [264 &8 1 Lfa Ti À ?ouP 
IF SAP - { SLfa } SWAP I 26 + ! À Slfa de zone par am, 
ELSE 2DROP THEN \ si 8, inchangé, 
LOQP 
2DRQP  4THREADS 24 + : | pointe fin actuelle zone param, 


écran #17, 


SAVBIN : LOC, Biiuif8lal 
\ Localice les CFA du mot énoni dans lee 2 versionc 

\ compilées, 

LOC LAC nom (S -- cfa inf,cfa sun ) 

[ti A \ coapile une fre fois le fichier COURANT. 

KL WORD OUP TAMF 32 CHOVE FIND 1 tfe inf i 

CR IV G= ARORT" La gargue n'a pas été trouvée" NORH 
HARNINE OFF Of HARNING ON \ <èse cosnilation, 

TAHF FIND { cfa eur ) 

CR INV ARORT' II me faut 2 copies ..," NOR 

2BUP - 255 AND Ÿ igr divisible par 2%6 © 

CR INY ARORT" Âjoutez UN octet au progragme ..." NÜRH 
QUER LIENS INF 

\S les erreurs de ‘relogesent" ce groduiront si la gr est 
aultiple de 256 (198 hexal: il faut dans ce cac rajouter de 
à 255 octets au programse source {vv ALLOT 5. ex), 
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écran #16, 


@ \ SAVRIN : MRITE-PARNS, G2lui88Jan 

i 

2 : NAITE-FARNS 16 céa inf,vfld,lgr -- 

3 2DUP TAILLE HAS + { cfa inf,véld,lgr,ad paræsi 

C) DUP R/REC ERAGE \ efface zone parambtres, 

5 UF :R ! \ sauve Igr du segaent de dict., 
à DUP Ra 2+ ! \ l'adr de compilation origine . 
7 Ri 4 + SHAP { ad parast4,lfa up j 

a SAV LFA \ Les liens du segsent, 

g [']TAR RIT SHARP ! ; \ valeur de controle 

ta 

LE 19 NRITE-PARNS place les varasètres du rechargenent 

12 (longueur, liens supérieurs et inférieurs, ... } dans la 20ne 
13 réservée au-descus de [3 table de ‘relcgesent’. 

14 Le tout sera sauvé sur disque. 

15 
écran #19, 

& \ SAVRIN : crée, écrit, ferme un fichier. ftiuiagian 
{ 

2 : MAFE-RIN {6 fcb -- ) \ crée l'entête 

3 22 DOS DOS-ERR? \ d'un fichier sur disoue, 

3  ARORT" Pas de place dans ie répertoire." ; 

ë 

6 : MRITE-RIN {S adr déb.lgr.fch -- |] 

F  -ROT RIREC 7 + \ nbr de secteurs à écrire. 

8 @ DO : fch adr | 

9  OÙF 24 &DOS DADP \ place la DTA, 

18 OVER 21 SHDOS DRGP \ écrit un secteur, 

it ARRET + \ adresse du secteur suivant, 

i2 LGOP 2DROP ; 

LES 

143 CLOGE-RIN {15 fcb -— } 


15 
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is RDOS DOS-ERK? ARORT" Fergeture iapassible" ; 
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écran #28, 


\ SAVRIN : SRIN, aut de haut niveau. 
FORTH DEFINITIONS 
: SHIN (DOS 3 
LOC {! cfa inf,eup) 
2OUF SYAP - DECAL ! 


Bhiuianial 


\ SRIN ler eot: énon fichier: 
\'adr extr, du segm. de dict, 
\ ça lor en octete. 


FICHIFCE \ nog du fich, -: FC, 
FCRS HAFE-RIN \et le crée, 
SUÉP GVIEN { cta cug,base infl \'adr basse du sega, 


DECAL € CONST TAR \ crée table de ‘relogesent”, 
MVIEM DECAL 8 { via sup,lor | 
2OUP HRITE-PARNS \ table des paranètres. 


TAILLE NA} k nbr d'oct, à écrire. 
FCRI HRITE-RIN À écrit le fich, iaage 
FCRI CLOSE-HIN \ ferme le fichier 


CR FCRI GRILL .FILE .° 


écrit sur disque." NORM CR 
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Voici un développement Modula destiné à interfacer dans ce 
langage le générateur d'écran HISCREEN. Moi-même, j'utilise la 
version US bien moins chère. 

Il n'y à pas en effet d’équivalent de write pour envoyer la 


chaîne de commande au module d’'interception résident de HISCREEN., 


On crée donc une procédure HiCom (Commande: ARRAY OF CHAR). 


{* 


Title: Definition module HiScreen 
LastEdit: 20/06/88. 

Author: Daneluzzo 

System: LOGITECH MODULA-2/86 


+) 
DEFINITION MODULE HiScreen: 


EXPORT QUALIFIED 
HiCom; (* Procedures *) 


PROCEDURE HiCom (Commande: ARRAY OF CHAR); 


{* Commande contient la chaîne à émettre dans laquelle se 
trouvent les ordres à envoyer au module résident de Hiscreen*) 


END HiScreen, 


x 


( 
Title: Implementation module Hiscreen. 


LastEdit: 20/06/88 
Author: Daneluzzo 


System: LOGITECH MODULA-2/86 
* 
} 


TMPLEMENTATION MODULE HiScreen: 


FROM Strings IMPORT Length; 
FROM SYSTEM IMPORT ADR,DOSCALL ; 
FROM Exec IMPORT Run: 


PROCEDURE Raz (VAR Chaine: ABRAY OF CHAR); (* Vide une chaîne 
5Q octets *) 


VAR ji: INTEGER; 
BEGIN 
FOR i:=@Q TO 49 DO 
Chaine[i]:=CHR(Q);: 
END: 
END Raz: 


FROCEDURE Lie (sl: ARRAY OF CHAR; VAR S$2: ARRAY OF CHAR); 
(* Concatène s1 à s2 dans 82 *) 


VAR i,j: INTEGER; 


BEGIN 
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de 


1:=0: 


j:=0; 
WHILE s2{[j]<>CHR(@) DO (* On cherche l'indice du premier 
blanc dans s2*) 
j:=3+1; 
END: 
WHILE (i<VAL(INTEGER,Length(s1))) DO (* Puis s2 se remplit 


par si *) 
s2{[jl1:=s1{il]; 


is=i+l; 
j:=5+1; 
END: 


END Lie; 


PROCEDURE Lance (Commande: ARRAY OF CHAR); 


(* Envoie Commande dans la routine DOS "Emmission d'un message" 
+4 
BEGIN 

DOSCALL(9h,ADR(Commande)); 
END Lance; 


PROCEDURE HiCom (chi: ARRAY OF CHAR); 
(* Prépare la commande Hiscreen complète *) 


VAR Beg: ARRAY [@..2] OF CHAR; (* Marqueur de début *) 
HiFonct: ARRAY [@..49] OF CHAR; (* Phrase de commande 


Hiscreen *) 


BEGIN 


Beg{@]}:=CHR(19); (* Marqueur Hiscreen *) 
Beg{[1]:=CHR(255); (* Marqueur Hiscreen * 
Beg[2]:=CHR(1); (* Marqueur Hiscreen *) 
HiFonct[@l:=" "; (* Init chaîne *)}) 


Raz(HiFonct); (* Met à blanc la chaîne *) 

Lie(Beg,HiFonct); (* Place les marqueurs en début de la 
commande *) 

Lie(chi,HiFonct}); (* Met notre ordre dans la commande “) 

HiFonct[48]:=CHR(1); (* Marqueur de fin Hiscreen *) 

HiFonct[49}:="S$S"; (* Fin de chaîne interruption 9h *) 


Lance(HiFonct); {* Envoie la commande au module résident *) 


END HiCom; 
END HiScreen. 
Voici un petit exemple d'utilisation de la procédure HiScreen: 


{* 


Title: EFssais modules HiScreen 


2 gn n°86. Juin (388 


LastEdit: 19/98/88 


Author: Daneluzzo 
System: LOGITECH MODULA-2/8G 
Le 


MODULE HiUse)?; 


FROM SYSTEM IMPORT ADR,DOSCALL 

FROM Exec IMPORT Run; 

es Terminal IMPORT WriteString, ReadString: 
ROM InOut IMPORT ReadInt;: 

ue HiScreen IMPORT HiCom: 


VAR Ok: BOOLEAN; 
RC: INTEGER: 


BEGIN 
Run('C:\CDES\PROG\BEC. COM','",0k): 
Run(' a COM’, "T,O0k): 

HiCom('USE,C: \TEXTE\HS\ECRANS\LIV- @1.AID,RC'); 
ReadInt! (RC }; 

IF RC<>9 THEN WriteString("Ecran LIV-01 absent”) END; 
Run("C:\CDES\PROG\END.COM','’,0k); 


END HiUse2,. 


MAINTENANT OIGPONIBLE: 


TURFO-FORTH MODULE RE Fe 
- interface de méta- génération en Français, Qnglais et Bllemand, extensible 
aux auires Langues ét rangères par l'utilisateur. 


- interface de COMpactage et génération automatique de PrOGraMMRS exécutables 
54n5 en-têtes ei réduits AUX Seules primitives utilisées Dar oups 
applications 


EN Cas de recopie sur cisque dur des fichiers contenus dans M5, les fichiers sp 
Substitueront automeltiquement aux anciennes Versions de KERNEL.FTH, NOYAL, FTH, 
METE,FTH et META-BAT FTH déja implantées dans votre répertoire destinat ion. 


Envoi Contre 10 timbres à 3,70 Fr (pas de héque,. SVp). Envoi des modules ma pt 
MS au prix de 79,00 Fr. Tarifs port compris. 


Adressez votre Commande à: ASSOCIATION JEDT, 17 rue de la Lancette, 7501? PARIS 
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Serie le la D LE 
implementation model, Laxen and Perry's 
F83. This code should be easily adaptable 
to any Forth-83 system, however, and 
probably ta many other Forths as well. 
On screen 67 we give the definitions of 
most of the non-standard F83 words we 
use, in case you need them. 
Unfortunately, there are several other 
words for which we can't do this without 
getting bogged down in a mass of 
irrelevant detail. But we will now Ury 1 
give enough information for our purposes 
here. 

Firstly, the words DEFER and IS, 
respectively, create and redirect an 
execution vector. These words have been 
fuily described by Henry Laxen in two 
“Techniques Tutorials” (FD 1/6, V/6) 
that are well worth reading. Secondly, a 
couple of non-standard words are called 
from FIND, which we redefine on screen 
72. However, the change we make to the 
definition of this word is very minor, and 
comes right at the end. Thus, we can 
ignore the details of the workings of 
FIND. In fact, even if you don't have 
F83, the change to FIND will probably 
be exactly the same. Thirdly, we need to 
refer here to.the F83 word HEADER. 
The change is simply to rename it 
(HEADER), 50 again We don’t need to 
go into the details of its workings. We 
have more to say about it below. 

Our scheme operates by separating the 
headers of the internal words. These go 
into a Special area, the separated heads 
arca (SH, for short) and are later 
forgotten. This is not as simple as it 
sounds, since internal words will have 
‘external words compiled after them, at 
which time the internal names must still 
exist. Later, if we forget the internal 
names by simply chopping the dic- 


tionary, we will lose the external names, 


too. Rather, we must follow the 
dictionary links and unlink any intermal 
names, leaving the rest of the dictionary 
intact. We provide here a new forgetüing 
word to do this — the regular FORGET 
need not be changed. 

Now we will go into a bit more 
detail. The SH area has its own 
“dictionary pointer,” the variable SH- 
pe. The base and top of the area are 
pointed to by two other variables, SH- 
DPO and SH-TOP. | am defining these 
as system variables here, although you 
may want to make them user variables if 
you do any multitasking on your system. 

Each header in the SH area looks 
exactly like a normal header. The 
difference is that, instead of being 
followed by a code field, it is followed by 
a pointer to the code field. The code field 
itself sits in its usual position in the 
dictionary (and, of course, has no header 
in front of it). Here is how we set up this 
kind of header. In F83, headers are laid 
down by the word HEADER, which 
returns with the dictionary pointer DP 
pointing to where the code field will go. 
CREATE calls HEADER, then stores 

‘the code field. Our modification 10 
HEADER is simply lo make it vectored. 
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So rename HEADER (0 (HEADER) 


and follow it with the code: 


DEÉFER HEADER" 


(HEADER) IS HEADER 


When intenal words are being 
compiler, HEADER is redirectæd 10 
execute SEP-HEADER, which lays 
down a separated header and pointer to the 
code field. As required, we leave DP 
pointing to where the code field will go. 
SEP-HEADER is defined on screen 67. 
Notice that this word cails (HEADER) 
to do most of the work. 

The F83 word NAME> takes the 
address of à name field and retums the 
corresponding compilation address (in 
F83 and most Forths, this is the same as 
the address of the code field). This word 
must be redefined so that, if the name is 
in the SH area, the pointer following the 
name is used to obtain the compilation 
address. This we do on screen 66. Other 
Forths should use either this word or 
something very similar. Any other words 
that go from a field within a header to the 
corresponding code field or parameter field 
will also need to be checked. If they use 
NAME> (or its equivalent) to make the 
transition, there’s no problem. In F83, 
the only word in this category that 
doesn't use NAME> is FIND. AS we 
mentioned above, the necessary change 10 
this word is very minor. For complete- 
ness, we give the whole definition on 
screen 72. 

This brings us to the new forgetting 
word. One of its features is that it takes a 
pair of addresses and forgets everything 
between them. So we will cal it 
<FORGET> (pronouned “forget bet- 
ween”). Its definition is given on screen 
68. Note the use it makes of the two 
other words on that screen, UNLINK and 
TRIM. .TRIM, in is tum, USEs 
UNLINE — it is UNLINK that does 
all the hard work. 

F83 has a multi-thread dictionary 
structure, with the constant #THREADS 
defining the number of threads. TRIM 
contains a DO loop over the threads, 
calling UNLINK for cach one. If your 
system does not have a multi-thread 
dictionary, removing the DO loop from 
TRIM may be sufficient. 

<FORGET> can take a few seconds 
10 execute, depending on your processor. 
This may not mater, as it won't be used 
with high frequency. However, if you can 
rewrite UNLINEK in code for your par- 
ticular processor, 50 much the better. 
This may save a few bytes of memory as 
well. 

If you want (0, you can replace the 
regular F83 forgeting scheme with this 
new one. (Thus, our TRIM has the same 
name as its F83 counterpart) Simply 
redefine 


(FORGET)  DUP -1 
<EFORGET> DEP ! :; 


and replace TRIM with our new one. 


FroRGET itself need not be altered. The 
advantage of doing this replacement is to 
save space, since our forgetting scheme is 
really an extension of the old one and 
covers much of the same ground. It works 
identically if there are no SH names, and 
the high limit is set to the highest 
address. If UNLINK is written in code, 
FORGET should run as fast as before. 

The word SET_SH_ AREA (screen 
67) sets up the SH area by initializing the 
three pointers 10 this area. As written, it 
sets up 2000 bytes for the area in high 
memory, and 200 bytes below the current 
top of the parameter stack (which grows 
downwards). If this is not suitable for 
your system, change it as necessary. The 
number 2000, set up as the constant 
sH_ AREA SIZE, | found to be suf- 
ficient for my needs. If you have a big 
application, you may need to increase this 
number. The variable SH-MAX keeps 
track of the maximum size required so far 
for the SH area, so you can find by 
experimentation what size you need. 
Separate modules (i.e., not nested) reuse 
the same space in the SH area, to 
minimize the required si2e. 

Modules may be nested in the 
fashion: 


INTERNAL ... 
INTERNAL... 
MODULE 
EXTERNAL ... 

MODULE 

This is che same as provided in 
Dewey's original implementation of these 
words. Notice that once we arc EX- 
TERNAL, we can't become INTERN- 
AL again in the same module. This 
could, however, be implemented. Being 
such perceptive readers, you will no doubt 
have noticed that <FORGET> is MOre 
general than we really need. Intemal 
names to be forgotten will always occur 
in a single, contiguous cluster, whercas 
our implementation of <FORGET? will 
allow them to occur randomly, anywhere 
in the dictionary search order. This was, 
in fact, easier and shorter to implement 
(although slower). But it does mean that 
we can implement the more complicated 
module format, if necessary, without 
much trouble. ! haven't done it here, 
feeling there may well be different 
schools of thought as to whether this 
feature will be desireable. Code is 
probably easier 10 follow if all EX- 
TERNAL definitions are together, and 
this can usually be arranged quite easily. 
But go ahead and implement the more 
complicated format if you want 10. 

Our scheme for the temporary loading 
of entire modules (screen 71) is a straight- 
forward application of <FORGET?. The 
word TEMP_ MODULE saves DP on the 
stack, then resets it to halfway between 
where it was and the bottom of the SH 
area, You then load the temporary 
module, and use END_TEMP to set DP 
back to where it was. Hopefully, there is 
enough room between there and the 
temporary module for the definitions you 


Fe 


now want to load. When this is done, 
FORGET_TEMP forgets the temporary 
module. If the temporary module has 
defined any vocabularies, remember 10 
remove them from the search order before 
FORGET_TEMP — unless you find 
crashes entertaining! A very simple 
example is shown on screen 75. 


Michael Hore is a müssionary Bible 
translator wik a programmin g bact- 
ground. He works among a remote group 
of Aborigines and uses an LSI 11/2. He 
is progressively moving all his software 
Over to Forth, “..the way computers were 
meant {0 be programmed." 


t 
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MayëS HRH 


SH-0P Current SH area pointer. | 


SHAREA 512€ Size we allocate for SH area, Alter jf nececsary, 
À variable to allow us to check that the order 

EXTERNAL... MODULE is always followed (otherwise we’d crash),  : 
Records the maximun SH space used 50 far, l 


SH-HERE Fetches the current SH area pointer, 


or à pointer to one if we are in the SH area, Returns the 


le nwithin the range lo to hi inclusive? My version 
of this word has à couple of peculiarities - the test value 
is not popped, and the arithnetic js unsigned and circular, 
Îs addr within the SH area? 


SEPLHDR) act is either the address of à code field (acf), 


Converts the addr of à nane field (anf) to an act. 


points to the base of the SH area. i| 
l 
Î 


Points to the top of the SH area. i : 
Note: these three are all zero if the SH area has not been 


May85 MRH 


TRAVERSE (F83) is the same as in Fig-FORTH, Note that in FB3 
link fields precede nane fields, 50 that after the TRAVERSE | 
we are normaliy looking at the code field, At this potnt we 
insert ?SEP_HDR). This is the only change to the definition. 


0 \ Separate header area May85 HRK \ Separate header àrea 
[1 SH-0PO 
i 2 VARIABLE  SH-DP0 
; 3 VARIABLE  SH-DP SH-TDP 
! 4 VARIABLE  SH-TOP 
î | 5 2000 CONSTANT SH AREA SIZE initialized. 
Î é VARIABLE  EXTNL? 
: 7 VARIABLE  SH-MAX EXTNL? 
5 
Î 
: 9 SH-MAX 
il iQ 

11 

12 | 

13 : SH-HERE ( -- addr ) SH-DP 9 ; 

14 

5 Lol 
| 

é6 1064 

0 \ SH area, cont. May85 MR \ SH area, cont. 
| 1: WITHIN? Con lo hi -- nf ) OVER - DR OVER SP - WITHIN 

2 R) SAP UX NOT :; 

3 

4 wrapping around from é4K to 0. 

S : SEP_HDR? € addr -- addr # ) SH-DPO 3 SH-TOP 7 UITHIN? ; SEP_HDR? 

4 

7 3 PSEP.HDR) ( ?acf -- acf ) SEP_HDR? IF 2 THEN ; 

8 

9 acf, 

10 

FI 2 NAME) € anf -- oc8 MAME) 

12 1 TRAVERSE {+ ?GEP_HDR)  ; 

13 

14 

15 

67 1067 

i 0 \ SH area, cont, Hay85 HRK \ SH area, cont, 

1 
| 2 à SEP.HEADER ( --name) ) HERE { save )  SH-HERE DP : SEP_HEADER 
| 3 (HEADER) © saved dp ) DUP , DP 3 SH-DP ! pp! ; 

4 
ji 9 : SET_SHAREA SP3 200 - DUP SHLAREA C]?E - SET. SH_AREA 
: DUP HERE 200 + U< ABORT' Hot enough room in memory" necessary for your system. 
| 7 DUP SH-DPO ! SH-OP © SH-TOP !  ; 

8 

Ÿ : 2SETSHARER SH-DPO à 0= IF SET_SH AREA THEN : 

10 

IH ND CONSTANT FALSE 
12 % -f CONSTANT TRUE 
O3 à: MN € 'ader -- ) TRUE Sp ; 

IA ONF {addr -- } FALSE SAP ! 


13 \ : CFAIRS Ü an — ) 


Here are some non-<tandard words inctuded in FR3, Use these 


Lays down à header in the SH area. 


Sets up the SH area, Alter this definition :f 


PSETSHAREA Sets up the SH area if not done already, 


May&S HRH 


définitions if you need to. i 


= NOT ABORT" Unbaianced structure" ! 
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68 


May85 HRK 
DUP OR 


A (FORGET), etc. 
: INLINK (Clohi tst-link = lo hi Ist-link } 
BEGIN  ?OUF 
UHILE DUPDR à 
BEGIN ?2.PICK 2 PICK WITHIN? UHILE 9 REPEAT 
DUP R) ' 
REPEAT RD ; 


: TRIN Cloh: voc-link-addr -- 16 hi yoc-link-addr ) 
L NTHREADS 2# ] LITERAL - 


HTHREADS 0 00 UNLINK 2+ LOOP 3. 


4 GFORGET) € lo hi -- ) (VER FENCE à UX ABORT' Belcu FENCE" 


VOC-LINK UNLINK 
BEGIN 9 2DUP WHILE TRIM REPEAT 


=  2DROP : 
49 
\ Modular programming words . May83 HRH 
1 SAVELHEADER € -- act 20)  (°) HEADER BODY 9 20 ; 
; INTERNAL EXML? 9 
ARORT" INTERNAL follous EXTERNAL - probably MODULE onitted* 
DSET_SILAREA  SH-DP 2 ( save ) SAVE. HEADER 
200 SH-DP +! C1 SEP_HEADER IS HEADER  ; 
INTERNAL 
… RESTOREHEADER € old-hdr-act 20 1 20 PAIRS IS HEADER ; 
: ÉSHLFORGET) { faddr -- } 
UP SH-T0P 2 4FORGET) SH-DP : ; 
70 
\ Modular programming words, cont. May83 MRH 


: CEXTERNALY à old-sh-dp cld-hdr-act 20 )  RESTORE.HEADER 
SH-HERE SH-DPO 9 - SH-MAX 2 MAX SH-HAX ! 
sH-DP !  EXTHL? ON 


EXTERNAL) 


: EXTERNAL (EXTERNAD)  ; 


: MODULE  EXTNL? 9 NOT 
ABORT" MODULE foilous INTERNAL - EXTERNAL omi tted" 
EXT? OFF SH-HERE (CSHFORGET) : 


71 
\ TEMP-MODULE, etc. May85 NRH 
, TEMP-HODULE  ?SET-SH AREA HERE © save à  SAVEHEADER 


{'] CHEADER) 1S HEADER 


HEPE SH-DPO 4 OVER - 2/ { HEX ) 7FFE AND [ DECIMAL ] 
+ WP! ; 
. ENDLTEMP  RESTORE_HEADER DP 1 ; 
: FORGET_TEMP  HERE SH-DPO 9 (FORGET) ; 
MODULE 
Ed 
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\ GFORGET), etc. ‘ May85 HRK 

UNLINK Goes doun à linked list starting with 1st-Tink, 
unlinking all links located at addresses within the range 
lo to hi Cinciusive), This word could prafitably be put into 

| code. 

TRIM For the given vacabulary, renoves all words whose link 
fields are located within the range lo to hi. 
HTHREADS is a constant giving the nunber of dictionary 
threads. 

{FORGET)  Forgets all words whose link fields are located 
within the range lo to hi. DP 15 not changed. 
We first check that io is not belou where FENCE points, to 
guard against wiprng out the system, Then we use LNLINK to 
renove any vocabularies that are to be forgotten. (UQC-LINK 
ÿs the head of the vocabulary list.) Then we qo don the 
pruned list of vocabularies and cat TRIM for each one, 


1049 


\ Modular programming words 
SAVE_HEADER 


May85 HRH 
Gaves the current setting of HEADER (DEFERred), 


INTERNAL  Subsequent definitions will have separate headers, 
Note we reserve 200 bytes in the SH area for EXTERNAL names 
in case this is à nested INTERNAL. 


Now INTERNAL is defined, ue can make use of it right away, 


RESTOREHEADER  Restores the previous setting of HEADER. 


GOHLFORGET)  Forgets all (SH) names above the limit, ddr. 


1070 


\ Hodular programming words, cont, May85 HRH 
EXTERNAL) As for EXTERMAL bel, but won’t be accessible 
later, as an INTERNAL is now current, Needs to be usec 
to nake us external again, se EXTERNAL itéelf will de 
accessible, 


EXTERNAL Subsequent defined names oo uhere they were Quing 
betore the tast INTERNAL, These names witl still be 
accessible after MODULE. 


MODULE  Forgets all names defined between INTERRL 10 
EXTERNAL. Nanes after EXTERNAL are stili accessibie. 


1071 


A TEMP_MODULE, etc. MayëS MRH 
TEMPMODULE Marks the start of à nodule (such à5 the assenbier 
which is to be fargatten in toto once it has finished. 
This word leaves DP pornting to where the noduit uiil be 
loaded, Currently this is half-way between HERE and the 
“botton cf the SH area. You can change this 1f necessary. 


END_IEMP Used after the tenoorary nodule is loaded. Restores 
DP to its usual position. 


FORGET_TEMP Used when the temporary nodule is nc longer neede3. 
Forgets it using CFORGET), 50 nothing else is affected. 


a 


© ——— —_— 


72 1072 
\ Modified FIND May85 MRH  \ Modified FIND May8S HRH 


: FIND Caddr -- act flag ! addr false à The first part of this definition is copied straight from F&3. 


û 

1 

2 

3 PRIOR OFF FALSE HUOCS 0 

4 DO DROP CONTEXT ! 2x + 3 DUP 

ù IF OUP PRIOR à OVER PRIOR ! = 
6 IF DROP FALSE 

? ELSE OVER SAP HASH 2 

8 (FIND) DUP ?LEAVE 

9 THEN THEN LOCP 


16 DUP IF SWAP SEP_HDR) SWAP THEN ; This extra line is the onty change to the definition. 
t{ If the nane was found, call 2SEP_HDR) to ensure we have the 
12 address of the code field, 
13 
14 
15 

75 1075 
0 \ Module exanpie Mar8é MNRH \ Module exanple Mar8é MRH 
ñ This screen gives an exanple of à very sinpie nodule, which 
2 INTERMAL provides à single word to the outside worid, 
3 
4: CCHNGE.CASE) € € -- c’ ) CCHANGE_ CASE) 
5 ASCIT À ASCII Z WITHIN? SAP ASCII à ASCII z WITHIN? Changes the case of the given character, if it js 
6 ROT OR IF BL XOR THEN ; alphabetic, 
7 | 
8 EXTERNAL User word: | 
9 ‘ i 
10 : CHANGE CASE ( addr len -- ) BOUNDS CHANGE CASE | 
it DO 1 Ca (CHANGE CASE) 1 €! LOOP : Changes the case of the String (addr, len), 
12 BOUNDS (F83) is equivalent to OVER + GP : i | 
13 MODULE ! 
j4 Although CHANGE_CASE uses CCHANGECASE), the latter 1e new not | 
15 accessible, and its nane is not taking up any nenory space, | 
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